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1.0 GENERAL INFORMATION 
1.1. PROGRAM ABSTRACT 


THE RPO7 FUNCTIONAL DRIVE TEST CONTAINS A SERIES OF i At THAT 
VERIFY THAT THE DISK IS CAPABLE OF PERFORMING SEEKS, THAT THE S 
AND ACCESS TIMES ARE WITHIN TOLERANCE, THAT THE ADDRESSING CIRC 
Fatima LY, AND THAT WRITE AND READ DATA CAPABILITIES AR 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 

IME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION Of THE RUNTIME SERVICES, REFER 
TO THE XXDP* USER'S MANUAL. ERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
THIS PROGRAM WILL REQUIRE THE FOLLOWING SYSTEM HARDWARE: 


1, AN XXDP* LOAD MEDIUM 

- A CONSOLE KEYBOARD/PRINTER 

28« WORDS OF MAIN MEMORY 

A PDP=-11 PROCESSOR WHICH HAS THE THROUGHPUT CAPABILITY 
EQUAL TO AT LEAST 2.2 MBYTES/SEC FOR OPERATION IN NON- 
INTERLEAVED MODE OR 1.3 MBYTES/SECOND FOR OPERATION IN 
Sada og 3 MODE. 
5. yh H76 OR RH11 CONTROLLER 
6. A PROGRAMMABLE CLOCK (KwWi1l-P) 


r 
. 


1.3 RELATED DOCUMENTS AND STANDARDS 

XXDP* USER'S MANUAL (CHOUS) 

RPO7 PURCHASE SPECIFICATIONS (A-PS-3015478-0-0) 
1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

RPO? FRONT END DIAGNOSTIC, 

RPO7 PDP11 FORMATTER, 

1.5 RESTRICTIONS 


THIS PROGRAM WILL NOT BE ABLE TO RUN ANY OF THE AVAILABLE RPO7 
RESIDENT MICRODIAGNOSTICS. 


THIS PROGRAM WILL NOT RUN ON LSI-11 CPU'S. 


THE COMMANDS: NOP, DIAGNOSTIC, FORMAT TRACK, AND READ/WRITE TRACK 
DESCRIPTOR ARE NOT USED. 


cm 
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F A KWil-P SYSTEM CLOCK IS NOT INSTALLED ON THE SYSTEM, THE TIMING 
ESTS WILL NOT BE EXECUTED. 


THE PROGRAM DCES NOT PROVIDE MODULE CALLOUT IN THE ERROR PRINTOUT. 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER*S MANUAL (CHOUS). 


2.1  COMMAI.0S 


THERE ARE ELEVEN LEGA 
(SUPERVISOR). a A 


FOR THE Tees gpl wen aoe 
BRIEF DESCRIPTION 


L_ COMMANDS 
ECTION LISTS THE COMMANDS AND GI 
THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL Hale 

RESTART START THE tae cs a tA Rae big 1 INITIALIZING 

CONT INUE CONTINUE AT TEST a. INTERRUPTED (AFTER *C) 

PROCEED CONTINUE FROM AN ERROR H ALT 

EXIT RETURN TO XXDP+ MONITOR CoxDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED Ne A gets AT START TIME 

DROP DEACTIVATE A 

PRINT PRINT STAT StiCAL gt gy la (IF IMPLEMENTED 
BY THE DIAGNOST Sy SECTLO Ts 

DISPLAY TYPE A LIST OF A tet INFORMATION 

FLAGS TYPE THE STATE OFA L FLAGS (SE , eer een 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION é. 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘STA’ INSTEAD OF “‘START’’, 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE auoearte TO THE LEGAL COMMANDS. ALL OF i .., LEGAL 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TES! 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED D FLAGS. FLAGS ARE DESCRIBED 
/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TESI/ADD/DROP ONLY THOSE UNITS SPECIFIED 


cm 
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bis? O'S, Te $1 At) wi = /UNITS:0:5:10-12 


IN 
USE "Oni ts UNIT NUMBE ERs = 9-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1=5/PASS: 1000/E0P: 100 
ECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH S WILL BE 
2) ALL UNITS WILL TESTED 1000 it, $ AND 3) THE END OF 
MESSAGES WILL BE PRIN TED AFTER EACH 100 PASSES ONLY. A 
H CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. "yOU MAY, 
MAMPLE, TYPE ''/TES:1<5°° INSTEAD OF "'/TESTS:1-5". 
BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 
TESTS PASS FLAGS €OP UNITS 


START y x x x x 
RESTART X x ¥ x x 
CONT INUE x x ¥ 

PROCEED x 

DROP x 
ADD x 
PRINT 

DISPLAY x 
FLAGS 

ZFLAGS 

EXIT 

2.3 FLAGS 


FLAGS ARE USED TO SET UP ceoree tp a PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START ‘yoy UNLESS SET USING TH THE 


FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND Z7FLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH 
FLAG EFFECT 
HOE HALT ON ERROR = CONTROL Is RETURNED 10 
RUNTIME SERVICES COMMAND MODE 
LOE LCOP ON ERROR 
[ER* INHIBIT ALL ERROR REPORTS 
IBR* INHIBIT ALL ERROR REPORTS PT 
FIRST LEVEL a RST LEVEL CONTAI NS 
ERROR TYPE, NUMBER, PC, TES UNIT) 
1XRe INHIBIT EXTENDED ERROR REPORTS. THOSE 
CALLED BY PRINTX MACRO'S) 
PRI DIRECT RESSAGES. 1 O LINE PRINTER 
PNT PRINT TEST NUMBER AS TEST EXECUTES 
BOE “BELL’’ ON ERR 
UAM UNATTENDED MOLE (NO MANUAL INTERVENTION) 


SEQ 0005 
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ISR INHIBIT Hie REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING)” 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR ty AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
* ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A BELL'’ ON ERROR, YOU MAY USE THE FOLLOWING STRING 


/FLAGS:LOE: IER:B0E 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES with PROMP.T 
THE USER FOR HARDWARE i etaat BY Ba he "CHANGE HW (L) ? 

YOU MUST ANSWER “Y’* AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS aren Ber eo USING THE USE TUP wees (SEE 
CHAPTER 6 OF THE XXDP¢ ysee 3 NUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “‘Y’’, THE R UNTIME NSERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL) YOU WILL THEN BE ASKED THE FOLLOWING 


E ; 
DRIVE # (0) 0? 


THE 1ST QUESTION “’RPCS1 ADRS’ REQUIRES THAT THE USER INPUT THE 
ADDRESS OF RPCS1 OF THE CONTROLLER WHICH IS CONNECTED TO THE DRIVE 
UNDER TEST. DEFAULT IS 176700 (OCTAL). 


THE ZND QUESTION “‘VECTOR ADRS** REQUIRES THE USER TO INPUT THE 
atime ADDRESS OF THE RHXX CONTROLLER. DEFAULT IS 


THE 3RD QUESTION "BR LEVEL"* REQUIRES THE USER TO INPUT THE CONTROLLER 
INTERRUPT PRIORITY LEVEL. DEFAULT IS LEVEL 5. 


THE 4TH QUESTION “DRIVE #** REQUIRES THE USER TO SPECIFY THE DRIVE 
NUMBER OF THE DRIVE TO BE TESTED. DEFAULT IS 0 (OCTAL). 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 


zm 
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OPERATION MODES. vou UWILL BE BE PROMPTED BY ry SHANGE, Sw (L) 2°*, IF YOU 
WISH TO CHANGE ANY P ERS, ANSWER BY TYPING ‘Y''. THE SOFTWARE 
QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED as” FOLLOWS: 


CHANGE DRIVE PARAMETER (L) N ? 


If THE RESPONSE TO THE PREVIOUS QUESTION IS ‘N' THE FOLLOWING DRIVE 
PAR RAME TER QUESTIONS WILL BE SKIPPED AND PROGRAM WILL PROCEED AS NORMAL. 
RESPONSE WILL ALLOW THE USER TO ANSWER THE FOLLOWING DRIVE 
PARAMETER QUESTIONS. 
STARTING CYL (D) 0? #e(TESTS ~4-6-B.11613.14.17 18) 
ENDING CYL (D) 629 ? ee(TESTS 294,6,8,10,14,17-18) 
INCREMENT CYL (D) 1 ? ee(TESTS 
STARTING TRK (D) 3 ? #e(TESTS 2°7,11,13,16,17) 
ENDING TRK (D) 31 ? #e(TESTS 3-6,11.14, 16-18) 
INCREMENT TRK (D) 1 ? #e(TESTS 11 {g.42) 
STARTING SEC (D) 0, r ne (TESTS g-3- 13) 
ENDING SEC (D) 49 #(TESTS 5.6,14,18) 
DATA PATTERN (0) 030321 > ea(TESTé 16,17,18) 
If THE FIELD VERSION OF THIS PROGRAM IS BEING RUN, THE FOLLOWING 


QUESTION WILL BE ASKED. 
DO YOU WANT TO WRITE ANYWHERE ON MEDIA (L) N ? 


If THE RESPONSE TO THE PREVIOUS QUESTION IS ‘N’, Hy —— 
QUESTION WILL BE SKIPPED AND PROGRAM WILL PROCEED A 

A ‘Y* RESPONSE WILL PRINT THE FOLLOWING WARNING MESSAGE. 10" THE OUTPUT 
DEVICE AND ASK THE FOLLOWING QUESTION. 


! CUSTOMER DATA WILL BE OVERWRITTEN © ; 


jeuinnl G8 Siete cee 
e*(TESTS 17,18) 


IF THE RESPONSE TO THE PREVIOUS QUESTION IS "N*, THE FOLLOWING 
QUESTION WILL BE SKIPPED AND THE PROGRAM WILL NOT ALLOW TESTS 17-18 TO 
e eting FOR TESTING. A ‘Y* RESPONSE WILL ASK THE FOLLOWING 


USE RANDOM DATA PATTERNS FOR Raves ya! Ye TEST (L) N? 


PERFORM READ HEADER & DATA oun SEEKS (L) Y¥ ? 
(TESTS 2-6) 


TYPE TIME REPORTS (iL) N ? 
: **(TESTS 7-10,14,18) 


INHIBIT SOFTWARE TIMEOUTS (L) 
2 eCALL TESTS) 


TIMING TESTS, STALL BETWEEN pet 1 FE RANDOM pesrehe OF 2 MSEC (L) N? 
*#(TESTS 7-10,14,1 


STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMING TESTS (L) N ? 


SEQ 0007 
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*e(TESTS 1°6,11,135,146-18) 


*USE RANDOM STALL TIMES (L) N ? 


ee(TESTS 1-6,11,13, 14-18) 
* THAT QUESTION IS ASKED WHEN YES IS ANSWERED TO THE QUESTION. 


** INDICATES NOT PART OF THE DIAL 
STALL DEFINITIONS 
THERE ARE TWO DISTINCT STALLS : 
1. selec TAme ofA 
ANDOM ( 
NON-TIMING™ Tests. 


OGUE. 


VIA SOFTWARE (SW) DIALOGUE: 10. MSEC OR 
SEC) STALL TIME AFTER EVERY DRIVE FUNCTION | 


2. NON-SELECTABLE, 2 MSEC OR RANDOM STALL BETWEEN SEEKS IN 


TIMING TESTS 8. THRU 10. 


A °N® RESPONSE TO THE SUPERVISOR QUESTION “*CHANGE SW (L)?°* WILL 
Ss THE ASSIGNED SOFTWARE (SW) DEFAULT CONDITIONS: REPEATS = 1 


ASSUME 
STARTING CYLINDER = 0, ENDING CYLINDER 


ENDING TRACK = 31 INCREME 


= 629, STARTING TRACK = 
ING SECTOR = 


° OR 0, . vu 
SECTOR = 49, PATTERN = 0s0ce) - WRITE ON ALL CYLINDERS WITHIN SPEC: 


LIMITS, RUN TESTS 1-18, DO READ HEADER 


AND DATA COMMAND IN SEEK TE 


2-6, NO STALL, NO TIME REPORTS, SOFTWARE TIMEOUTS ENABLED. 


NOTE 


RUNNING THE FIELD VERSION OF THIS 


IF 
PROGRAM, rests, 17 AND 18 WILL O 


N 
RUN WHEN THE ‘“‘WRITE DATA ANYWHERE ON 
THE MEDIA‘ OPTION IS SELECTED BY THE 
OPERATOR. 


2.6 EXTENDED P-TABLE DIALOGUE 


NI BE TESTED. IF YOU HAVE A DEVICE 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL Li 5. THIS BECOMES TEDIOUS SINCE MOST OF 


THE ANSWERS ARE REPETIT 


7. ILLUSTRATE A MORE EF 

FICTIONAL DEVICE a 
A CONTROL MODULE WITH E 
THESE UNITS ARE DESCRIE 


100s 
F 

# UNITS (D) 2? 8<CR> 
UNIT 1 


OR 
H EIGHT UNITS. 


LOW IS A SIMPLE WAY 


A 


rie 
STS 


SEQ 0008 
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CSR ADDRESS (0) ? yee 
SUB=DEVICE # (0) ?. O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 
UNIT 2 
CSR ADDRESS (0) ?. 160000<CR> 
SUB-DEVICE # (0) ?. 1<CR> 
Q-FACTOR (0) 1? O<CR> 

3 


UNIT 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 

Q-F’ TOR (0) 0 ? <CR> 


? 160000<CR> 
? 3<CR> 
<CR> 


UNIT 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 


Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR ~ yd (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ?. 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SP 
‘ee THE SAME TABLE USING THE MULTIPLE 


HOWEVER. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? egepeecas 
SUB-DEVICE # (0) ? <CR> 
Q-FACTOR (0) 0? 1 OecRs 
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IT 3 

CSR ADDRESS (0) ? 1g0900<cR> 

SUB-DEVICE # (0) ? <CR 

Q-FACTOR (0) 0 2? O<CF> 

UNIT 7 

CSR ADDRESS (0) ? 1€0000<CR> 

SUB=DEVICE # (0) ? 6,7<CR> 

Q-FACTOR (0) 0 ? 1<th>- 
AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS. TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FAC WERE SPECIFIED. THE 

RVICES ASSUME THAT THE CSR ADDRESS IS T9000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES were SPECIFIED. THE 
CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 

FROM THE ait T NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY AbpRE SSeS. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE D TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 


Y 
SPECIFIED IN THE THIRD PASS. 
THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ~ say 2 ?_ 160000<CR> 
SUB-DEVICE # (0) ?. O=7<CR> 
Q-FACTOR (0) 0? 0,1,0....1,7<CR> 
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1, BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


TYPE ‘'R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE ‘START’ 
ANSWER THE “*CHANGE HW"* QUESTION WITH ‘'y"’ 


Ww 
7 


wo 
. . 


L 
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6. ANSWER ALL THE HARDWARF QUESTIONS 
7. ANSWER THE “CHANGE SW’ QUESTION WITH “'N’ 


WHEN YOU 4 oe ng THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE a THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF fox a "Ertce THAT MAY BE ISSUED BY 

A DIAGNOSTIC: et easic A N Pea eRe GENERAL ERROR M —— 
ARE ALWAYS PRINTED UNLESS THE ‘IER’ IS SET (SECTION 2. 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 


o WHERE ; | = pf as ogg Ic ot E 
YPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N_IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = “ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR yb pg ARE Sea oF THAT CONTAIN SOME hy ory 
es aah ABOUT THE og ad 571 ALWAYS PRINTED UNLESS 

* OR * LAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY tay gl gh pend 
SUCH _AS REGISTER core OR GOOD/SAD le THESE ARE ALWAYS 
THE “IE *“*1BR’’ OR “IXR’’ FLAGS ARE SET (SECTION 2.3). 
TER THE ASSOCIATED GENERAL ERROR 


TED AF 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 ERROR PRINTOUT 


THE ERROR PRINTOUT WILL CONTAIN A ONE LI 
BY COLUMN HEADINGS AND COLUMNS OF REGIST 


EXAMPLE: 


CZRXXX HRD ERR OOXXX ON Ds TSTXX SUBXX PCXXXXX 
mo, ADDRESSING ERROR (IAE AOE) 
CYL XXX. TRK XX. SEC XX, RPER2 (HEX) XXXX 


DRIVE RPCS1 RPWC RPBA  RPDA_ RPCS2_ RPDS 
2000008 000000 JOQQ000 JOQOQOCOQOO0C OO000C O0000L 
RPER1 RPAS RPLA  RPDB_ RPMR1_ RPDT  RPSN 
2000000 0000000 0000000 2000000 JOQQ00C 000000 O0000L 
RPOF RPDC RPCC RPER2 RPERS RPEC1 RPEC2 
2000000 0000000 0000000 JOQ0000 000000 000000 O0000K 


‘ 


NE ERROR DESCR ett iny FOLLOWED 
ER CONTENTS IN OCTAL. 


; 
+ 


1 
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TWE FIRST LINE OF THE ERROR MESSAGE IS PRODUCED BY THE DIAGNOSTIC 

SUPERVISOR. THERE ARE SEVEN ITEMS REPRESENTED IN THE FIRST LINE OF 
OUTPUT. THEY ARE: MAINDEC N 2) THE TYPE OF ERROR 

TE: WARD, DEVICE FATA ) THE ERROR MESSAGE NUMBER, 4) THE FAILING 

LOGICAL UNIT NUMBER, 3 THE NUMBER OF THE FAILING TEST, 6) THE 

NUMBER OF THE FAILING SUB-TEST, 7) THE ACTUAL PROGRAM COUNT OF THE 

FAILURE MESSAGE, 

THE SECOND LINE PRODUCES INFORMATION ABOUT THE SPECIFIC FAILURE MODE. 

THE BALANCE OF THE ERROR REPORT CONTAINS REGISTER STATUS TO AID THE 


F.E. IN FAULT. DETECTLON AND POSSIBLE ISOLATION. 


3.3 SPECIFIC ERROR MESSAGES 
INIT CODE ERRORS 


ON A START COMMAND OR ON A NEW PASS THE Rive AVAILIBILITY IS CHECKED 
IN THE INIT CODE, BEFORE RUNNING THE T A DRIVE NOT AVAILABLE IS 
APPROPRIATELY REPORTED AND” THE CURRENT. Ate ABORTED FOR THAT UNIT: 


DRIVE N UNSAFE 

DRIVE N NON-EXISTENT 
DRIVE N OFF-LINE 
DRIVE N NOT A RPO7 


WHERE ‘N® IS THE DRIVE NUMBER THAT FAILED 
NUMBERED ERROR LIST 


1: RHXX CONTROL S oer Ee ys MCPE=1 
RHXX DATA BUS PARITY ERROR MDPE=1 

RHXX ILLEGAL CONDITIONS SET (NED,NEM,PGE ,MXF ) 
WRITE " HECK ERROR 
DATA L RROR 
DRIVE PROGRAMMING Ty. (PGE) 
LOSTS BIT CLOCK (LBC) 


407 
DRIVE BUS PARITY ERROR (DPE) 
ILLEGAL CONDITIONS set CILF,ILR,RMR) 
ADDRESSING ERROR (IAE,AQE) 
SEEK ERROR (SKI,LCE) 
CLOCK rT ee IN TIMING TEST 


—vozao 
<= 
mn 


ORT REQUEST 


(MCPE=1 OR PAR=1) 
QUESTED 


o 
xz 
— 
<= 
mm 
=x 
> 
n 
@w 
mm 
So 
=z oN 
mn mm 
2 
oa 
‘ 
=< 
DY wwe 


ROO SIO UNE ARS EO NID UTES AID tte te ce ce ce oe 
ee 2 2 2 @©8 86 £6 86 8 88 #8 8 @8 8 88 £8 fe £8 

@ 
m 
> 
o 
£ 
» 
—2Z 
ot 3 
m 
= 
mm 
P24 
F— tad 
Sa 
“> 
eo 

o- 

~~ 

~~ 


WIWWNNNOPDNNINONOY 2 MVNO Ei 


WRITE*READY UNSAFE 


SEQ 0012 
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DC POWER yee Are 


3: 
4: INDEX UNSAFE 
5: PROCESSOR vey FAILURE 
6: DRIVE OFF-LINE OR A RPO7 
41: OPERATION INCOMPLETE. (OPI) 
42: IMPROPER HEADER 
43: ECC RODE IC FAILU RE 
44: MISC DRIVE ERROR: with RPER2, RPER3 
45: DRIVE TIMING ERROR (DTE) 
46: HEADER CRC ERROR yet: 
47; UN CTABLE 
50: LAST no TFR LBT oR et WHEN READING LAST SECTOR 
51: VFL AOE NOT SET ei READING PAST LAST SECTOR 
52: HARD 0 
53: SOFT ERROR - 
54: OM OF RPDS NOT SET ON OFFSET CMD 
55: OM OF RPDS NOT RESET ON RET CENTER CMD 
MOST OF THE NUMBERED ERRORS ABOVE vit aket CAUSE A DUMP OF THE 
FORMAT BELOW, CONSISTING OF 2 PARTS, BASIC, Hay AN EXTENDED 
ERROR MESSAGE. BOTH CONTROLLED BY 1BR ‘iD 1XR FLAGS: 
CYL XXX. TRK XK. SEC XX. RPER2 (HEX) XXXX 
DRIVE RPCS1 RPWC RPBA RPDA RPCS2 RPDS 


2000000 JOQ00000 2000000 2000000 JOQ000C D0000C 00008 
RPER1 RPAS 


RPLA RPDB- RPMR1 RPDT  RPSN 


YO00000 2000000 JOQ0Q0000 JOOOODOC O0O000C 000000 JOO000L 
RPOF RP RPCC 


0 RPER2 RPER3 RPEC1 RPEC2 
1000000 01000000 0000008 00000000 0000000 0000000 000000 
EXCEPTIONS: 
(1) DRIVE N 
(2), DRV CYL TRK SEC 
KKX KXX XK X 
GDCYL GDTRK ODSEC BDCYL BDTRK BDSEC 
KXX XXX 
(3) # OF OPERATIONS WITH A LOST REVOLUTION: XXXX 


(4) 
(5) 


XXXX OPERATIONS TIMED 


ALLOWABLE OPERATION TIME LIMIT 
MAKX= KX¥XK US 


NO ADDITIONAL MESSAGES 
TIMING TESTS 7, 14, 18: 


ene Cove oat SEARCH ERROR 
ABORT TEST 


SEARCH FAILED AFTER 16 RETRIES 
ABORT TEST 


(1) 
(2) 


SEQ 0015 
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(6) TIMING TESTS 8-10, 14, 18: 
POSITION ERROR: ABORT TEST 
3.4 ERROR TYPE 


THE FIRST LINE OF ERRCR MESSAGES PRODUCED BY THE DIAGNOSTIC SUPERVISOR 
IDENTIFIES THE TYPE OF ERROR REPORTED. THEY ARE CLASSIFIED BY THE 
DIAGNOSTICS IN 3 CATEGORIES: 


1, ‘“SFT® = SOFT: THE FIRST LOST D'SC REVOLUTION IN THE ADDRESS 
MARK DETECTION TESTS. 


2. ‘HRD = HARD: ALL ERRORS, EXCE?T DEVICE FATAL ERRORS AND SOFT 
ERRORS 


3. ‘“DVC FIL" = DEVICE FATAL: AN FRROR THAT FAILS THE DEVICE; DEVICE 
NOT READY, NON-EXISTENT GR NCI AN RPO7. 
4.0 PERFORMANCE AND PROGRESS REPORTS 
if A END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
14, wee NUMBER o ERRORS REPORTED SINCE THE Oe tc WAS STARTED. 
opP** Bult CH CAN BE USED 10 CONTROL HOW OFTEN THE END 
OF Eass SMES SAGE 1S PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 
5.0 TEST SUMMARIES 
TEST 1: RECAL TEST 


THIS TEST EXECUTES A RECALIBRATE COMMAND, THEN EXECUTES 
A READ HEADER AND DATA COMMAND TO VERIFY CCRRECT POSITI 


NOTE 


ON. 


IN SEEK TESTS 2-6, SEEK POSITIONING 
1S VERIFIED VIA READ HEADER AND DATA 
yore UNSUPERSEDED BY SOFTWARE 
(SW) DIALOGUE, WHICH CASE SEEK 


IN 
POSITIONING IS NOT VERIFIED. 
TEST 2: INCREMENTAL SEEK TEST 


THIS TEST EXECUTES FORWARD SEEKS TO ADVANCE THE 
FIRST(STARTING) CYLINDER ADDRESS TO THE LAST(ENDING) CYLINDER 
ADDRESS INCREMENTALLY. WHEN THE LAST(ENDING) CYLINDER 

TEST IS Repeare® IN THE REVERSE DIRECTION, 
THE INCREMENT/DECREMENT VALUE IS 1 BY DEFAULT, CHANGEABLE 


VIA Sw DIALOGUE. 
TEST 3: RANDOM SEEK TEST 


THIS TEST EXECUTES 1024. SEEK OPERATIONS RANDOML 


Y BETWEEN THE 
Ss Syo S onarkesnns ae CYLINDER ADDRESS AND LAST(ENDI 


E 
G) CYLINDER 


SEQ 0014 


CzR 
RHX 
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TEST 4: RECAL/RANDOM SEEK TEST 
THIS TEST EXECUTES A RECALIBRATE COMMAND, FOLLOWED BY A SEEK 


A RANDOMLY SELECTED CYLINDER. THIS SEQUENCE IS REPEATED 10. TIMES. 
TEST 5: SEEK DIFFERENTIAL TEST 
THIS TEST CONSISTS OF 3 TESTS TO TEST THE HEAD POSITIONER AND 


SERVO SYSTEM RESPONSE to” UNIQUE DIFFERENTIAL SEEK PROFILES: 


- 6 I a byereneatis SEEK: FORCES A S 3D 
CHANGE EEKING FROM CYLINDER 0 TO 5S, 
i? eee 626 TO 629, TO TEST THE POSIT 1GNAL 


2. 33 ren 1 las Ht iy SEEK: WORST CASE SEEK 
OVERSHOS "$3". oer? BY see he rn CYLINDER 0 
TO 32, 1 "10 é 10 9 


3. 400 cv eee DIFFERENTIAL SEEK: FORCES MAXIMUM 
erect ERATION AND DECELERATION OF 15 °390 1 essere. 


FORCED BY SEEKING — CYLINDER 0 T 
210 401, ... 250 10 629. 


TEST 6: OSCILLATING SEEK TEST 
THIS TEST SHALL EXECUTE A SERIES OF SEEK OPERATIONS TO 
CAUSE AN OSCILLATING FRON SEE OF 610, HEAD POSITIONER., THAT 
ESIRED CYLINDERS: FROM THE 
CYLINDER 0 TO of ey cy INDER Oe 
C-1, FROM CYLINDER OWN 


> 


GAINST 


S 
1, TIMING TES 
EO. THE OPERATOR 
A A MESSAGE. 


WILL NOT BE EXEC 


SEQ 0015 


Cz 


RPC 
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TEST 7: ROTATIONAL SPEED TIMING TEST 


His TEST EXECUTES A SEARCH COMMAND TO CYLINDER FC 
RACK FT AND SECTOR FS. AS SOON AS THE SEARCH OPERATION IS 
DONE. TEST SETS TH ; eit ECUTE ANOTHER SEARCH 
OMMAND WITH THE SAME RHXX/RPO7 REGISTER CONTENTS. THE TIME 
INTERVAL IS MEASURED AGAINST A TOLERANCE OF 16.515 MSEC 4-32. 
PEAT THIS SEQUENCE 1 ES. IN CASE ANY RECOVERABLE 
REAL ERROR EXISTS, THE PROGRAM WILL EXECUTE THE SEARCH 
COMMAND 16 TIMES. IF THE RETRY SEQUENCE FAILS THE PROGRAM WILL 
ABORT THE TEST, GENERATING A MESSAGE TELLING WHY THE PROGRAM 
WAS ABORTED. 
TEST 8: ONE CYLINDER SEEK TIMING TEST 
THIS TEST EXECUTES FORWARD SEEK FROM THE FIRST(STARING) 
CYLINDER TO THE FIRST(STARTING) CYLINDER + 1 AND THE 
OPERATION IS TIMED AGAINST A TOLERANCE OF 5 MSEC.. AFT 
EXECUTING THE TEST CYCLE, THE FIRST(STARING) CYLINDER ADDRESS 
1S INCREMENTED BY ONE. THIS PROCEDURE CONTINUES UNTI 
FIRST(STARTING) CYLINDER ADDRESS REACHES 629 THE USER 
SPECIFIED ENDING CYLINDER, THEN THE TEST IS REPEATED IN THE 
REVERSE DIRECTION, DO THIS SEQUENCE TWICE. THE AVERAGE ONE 
CYLINDER SEEK TIME WILL BE COMPUTED AND REPORTED WHEN THE 
“TYPE TIME REPORTS (L)"’ QUESTION I$ RESPONDED TO IN 
AFFIRMATIVE. THE AVERAGE SEEK TIME FOR A SINGLE CYLINDER SEEK 
1S COMPUTED PER FORMUL 


oe @ WE © vec T629 ¢ + 1629 © vve Te ¢ + 1 
T (AVG) = ecewwen enn nnn nn wwe nnn nnn nn nnn n nnn e eee 
629 + * “629 
WHERE TX IS THE SINGLE CYLINDER SEEK TIME. 
TEST 9: AVERAGE SEEK TIME MEASUREMENT 


THIS TEST WILL MEASURE THE AVERAGE SEEK TIME BY USING 
THE FOLLOWING CALCULATION: 


2X C (11 X 629)4(12 X 628)+...4(1629 X 1)] 
a 


629 X “629 
WHERE : 
THE ™ IS ie coreak cme yeeet SEEK TIME FROM CYLINDER 0 TO 
te YLI wee 1, ¢ YLINDER 0). THE NUMBER 2X629 IS 
THE T NUMBER F SEEKS EXE ECUT Dd. 


AVERAGE *SEER TIME OTOL ERANCE IS 25 MSEC. 
TEST 10: MAXIMUM SEEK TIMING TEST 
THIS TEST EXECUTES on SEEK ow CYLINDER 0 TO THE 
LAST(ENDING) (CY R THEN REVER SEE 
ie CYLINDER 10, CYLINDER 0. BOTH SEEKS ARE TIMED 
AGA 1% TOLERANCE 6 1 


SEEKS wite BE EXECU TED TO CALCULATE THE MAXIMUM SEEK 
TIME(512 FORWARD, 512 REVERSE) 
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TEST 11: MID TRANSFER SEEK TEST 


sats TEST EXECUTES READ DATA COMMANDS FOR EVERY TRACK 
ON THE FIRST (STARTING) £VL Inge WITH vee ves eens set 


Q A RAC S_ONE SECT H TEST _ENSU 
THAT EACH READ HEAD WORKS PROPERLY AND ALSO ENSURES THAT THE 
SOnKS PROPERT ch OPERATION, REQUIRING A MID-TRANSFER SEEK, 


TEST 12: ERROR REGISTER BIT TEST 


EXECUTE A READ DATA COMMAND ON THE LAST USER ADDRESSABLE 
SECTOR TESTING FOR THE ASSERTION OF LAST BLOCK TRANSFERRED 
(LBT) BIT OF THE STATUS REG RPDS. REISSUE READ DATA 
ND TO LAST SECT for WITH A WORD COUNT GREATER THAN 256 
WORDS, TESTING FOR THE ASSERTION OF THE ADDRESS OVERFLOW 
ERROR (AOE) BIT OF THE ERROR REG. RPERI. 


TEST 13: OFFSET/RETURN TO CENTER LINE TEST 


VERIFY THAT me OFFSET AND RETURN TO CENTER LINE COMMAND 
WORK PROPERLY 


ISSUE AN OFFSET COMMAND, PROCESS THE ATTENTION INTERRUPT AND 
ton eit oF —* VERIFY THE ASSERTION OF THE OFFSET MODE 


ISSUE A RETURN TO CENTER LINE COMMAND, PROCESS [HE ATTENTION 
INTERRUPT AND CHECK FOR ERRORS, VERIFY THE RESETS ING OF OM. 


TES! 14: RANDOM READ TEST / ADDRESS MARK DETECTION TEST 


If THERE IS NO P-CLOCK, THIS TEST RANDOMLY ate A 

SECTOR, THEN EXECUTES A READ DATA COMMAND TO THIS SECTOR TO 

wenity THAT NO DATA TRANSFER ERROR OCCURS. REPEAT 1024 TIMES. 
I 


F‘ THERE IS A P=CLOCK, ~~ ADDRESS MARK DETECTION T 4° 
TEST VERIFIES THAT DATA CAN BE READ Conseco WITHIN 
SAME REVOLUTION AS A SECTOR DETECTION. THE TEST RAN 
SELECTS A SECTOR, SEARCHES FOR THE PRECEDING ha itt a 
THEN READS THE SELECTED SECTOR. THE TIME INTERV 
SEARCH DONE = READ DONE IS MEASURED AND CHECKED T0 BE 
THE ag DISC REVOLT aN. REPEAT THIS SEQUENCE 1024 
AT THE END OF THE TEST, AN ERROR MESSAGE SHALL INDI 
NUMBER OF OPERATIONS WITH A REVOLUTION LOST, IF ANY, 


TEST 15: FE CYLINDER ADDRESS TEST 
THIS TEST EXECUTES gy te AND DATA COMMANDS 10 
yer THE ADDRESSING SECTOR 0 ON ALL TRACKS OF THE FIRST 
YLINDER, THEN EXECUTES AN EXPLICIT SEEK TO ACCESS THE 
SECOND FE CYLINDER. 
TEST 16: FE CYLINDER WRITE AND WRITE=CHECK TEST 


THIS TEST WILL WRITE ON THE FIRST FE CYLINDER FROM THE 


SEG 0017 
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FIRST(STARTING) TO THE LAST(ENDING) TRACK 10, VERIFY, THAT THE 
DRIVE CAN WRITE DAT WITH T DETECT ABLE OE TEST 
WRITES THE DEFAULT DATA PATTERN 030 on” 4 OUgeR SPECIFIED 
DATA PATTERN ONTO THE MEDIA, FOLLOWED BY EXECUTING 
WRITE=CHECK COMMAND, THE TEST CHANGES THE DATA PATTERN 10 
ITS COMPLEMENT VALUE AND REPEATS THE TEST CYCLE. THE WORD 
COUNT 1S SET TO DO TWO HALF TRACK DATA TRANSFERS 


TEST 17: WRITE TEST 


if RUNNING THE FIELD VERSION OF THIS PROGRAM, THIS TEST IS 
ONLY RUN IF THE “WRITE DATA ANYWHERE ON THE MEDIA" OPTION IS 
SELECTED BY THE OPERATOR, IN THE Cor TARE PARAMETER 
QUESTIONS. 

THIS TEST WRITES DATA AND WRITE CHECKS DATA ON EVERY TRACK 
FROM THE FIR STARTING) TO LAST(ENDING) TRACK OF THE FIRST 
(STARTING) CYLINDER FC AND THE LASTCENDING) CYLINDER, THE 
WORD COUNT IS SET TO DO TWO HALF TRACK DATA TRANSFERS. 


TEST 18: RANDOM WRITE TEST /ADDRESS MARK DETECTION TEST 


If RUNNING THE FIELD VERSION OF THIS PROGRAM, THIS ee 
ONLY RUN IF THE "WRITE DATA ANYWHERE ON THE MEDIA‘ OPTION 
gta BY THE OPERATOR, IN THE SOFTWARE PARAMET 


IS 
IS 
ER 


If THERE IS NO P-CLOCK, nae TEST WRITES DATA — oi 
CHECKS DATA RANDOMLY ON THE MEDIA, WITH A TRANSFER SIZE OF 1 
aot TeRe 1024 TIMES. THE DATA PATTERN IS RANDOM OR w SPECIFIED 


If THERE IS A PrckT eke hw: ADDRESS MARK DETECTION TIMING 
TEST VERIFIES THAT DATA CAN BE WRITTEN Conca WITHIN THE 
SAME REVOLUTION AS A SECTOR DETECTION. THE TEST RANDOMLY 
SELECTS A SECTOR, SEARCHES FOR THE PRECEDING SECOND LOGICAL 
SECTOR, THEN WRITES THE SELECTED SECTOR. THE TIME INTERVAL 
SEARCH DONE = WRITE DONE IS MEASURED AND CHECKED TO BE WITHIN 

SAME DISC REVOLUTION. A WRITE CHEC TA_IS THEN I a t 
ON THE SELECTED SECTOR. REPEAT 1024 TIMES. AT THE END OF THE 
EST, AN ERROR MESSAGE SHALL INDICATE THE NUMBER OF OPERATIONS 
WITH A REVOLUTION LOST, IF ANY. 


SEQ 0018 
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oREM @ 
VERSION (CZ2RJL=A-0) 


1. THIS yeas iON IS ivt STARTING POINT FOR CX DIAGNOSTIC SUPPORT OF 
THE RPO7 DISK DRIVE. 


H 2 
1 RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 7 SEQ 0020 
1 Z*LAST REVISION 01-JAN-83 
6 eTITLE CZRJLAO RPO7 FCTNL TEST 
c ~SBTTL PROGRAM HEADER 
00 000000 eENABL AMA,ABS 
01 002000 ‘ = 2000 
03 
05 ye4 
06 3; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
4 3: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
09 
19 
323 002000 LSNAME:: sDIAGNOSTIC NAME 
002000 193 ASCII /C/ 
002001 132 eASCII /2/ 
00200. 122 ASCII /R/ 
00200 112 ASCII /J5/ 
002004 114 ASCII * 
002005 000 BYTE 
002006 000 BYTE 0O 
002007 00 BYTE 0O 
002010 LSREV:: sREVISION LEVEL 
002010 101 eASCI] /A/ 
002011 LSDEPO:: 30 
002011 060 ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000001 -WORD TS$PTHV 
002014 LSTIML:: sLONGEST TEST TIME 
002014 000060 -WORD 60 
002016 LSHPCP:: sPOINTER TO H.W. QUES. 
002016 041026 «WORD LS$HARD 
002020 LSSPCP:: sPOINTER TO S.W. QUES. 
002020 041144 -WORD LSSOFT 
002022 LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
002022 092172 -WORD LS$HW 
002024 LSSPTP:: sPTR. TO S.W. PTABLE 
002024 002204 -WORD LS$SW 
002026 LSLADP:: :DIAG. END ADDRESS 
002026 974614 -WORD LS$LAST 
092030 LSSTA:: sRESERVED FOR APT STATS 
902030 000000 -WORD 0 
002032 L$CO:: 
002032 000000 -WORD 0 
002034 LSDTYP:: sDIAGNOSTIC TYPE 
002034 000000 -WORD 0 
002036 LSAPT:: APT EXPANSION 
002036 000000 -WORD 0 
002040 LSDTP:: sPTR. TO DISPATCH TABLE 
002040 002124 -WORD LSDISPATCH 
002042 LSPRIO:: sDIAGNOSTIC RUN PRIORITY 
002042 000000 -WORD 0 
002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 -WORD 0 


002046 LSEXP1:: EXPANSION WORD 


on 


1 2 
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09 Os oop LSMREV send ir SVC REV AND EDIT # 

03 005 .BYTE  CSREVISION 

p : “ LSEF — DIAG. EVENT FLAGS 

0 WORD 4 I 

08 900000 ‘won> 8 
4 0 LSSPC:: 

056 000000 .woRD 0 

0 LSDEVP:: ; POINTER TO DEVICE TYPE LIST 
003020 .WORD LSDVTYP 

06 LSREPP: : :PTR. TO REPORT CODE 

062 000900 .wORD 0 
002064 LSEXP4:: 
002064 000000 .wORD 0 
002066 LSEXPS:: 
00 066 000000 .wORD 0 
00207 LSAUT:: :PTR. TO ADD UNIT CODE 
002070 000000 .WORD 0 
00207 LSDUT:: :PTR. TO DROP UNIT CODE 
002072 000000 .woRD 0 
002074 LSLUN: : sLUN FOR EXERCISERS TO FILL 
002074 000000 .wORD 0 
002076 LSDESP:: :POINTER TO DIAG. DESCRIPTION 
002076 003026 .WORD LSDESC 
002100 LSLOAD:: sGENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 
002102 LSETP:: :POINTER TO ERRTBL 
002102 000000 .wORD 0 
002104 LSICP:: :PTR. TO INIT CODE 
002104 025460 .WORD LSINIT 
002106 LSCCP:: ;PTR. TO CLEAN-UP CODE 
002106 026504 .WORD LSCLEAN 
002110 LSACP:: sPTR. TO AUTO LODE 
002110 026502 .WORD L$AUTO 
go2112 LSPRT:: sPTR. TO PROTECT TABLE 
002112 025452 .WORD LS$PROT 
002114 LSTEST:: ;TEST NUMBER 
002114 000000 .wORD 0 
002116 LSDLY:: sDELAY COUNT 
002116 000000 .WORD 0 
oO iso LSHIME:: zPTR. TO HIGH MEM 
092120 000000 .wORD 0 


325 


=—o 
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: -S8TTL DISPATCH TABLE 
e+ 
4 3 THE DISPATCH TABLE CONTAINS THE STAR: ING ADDRESS OF EACH TEST. 
; 3 IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
8 002122 000022 -WORD 18 
002124 LSDISPATCH:: 
sasige Gases eH 
90 1 S 8 e768 -WORD 1 
1 290 eWORD 14 
0021 8 74 eWORD 15 
0021 7664 «WORD 16 
oosie 0277 3 eWORD 17 
002142 03105 «WORD 18 
O0e ee 032040 «WORD 19 
002146 836738 eWORD 110 
00215 33632 eWORD T11 
002152 034036 WORD ‘6 
002154 034264 eWORD 11 
002156 034454 eWORD 114 
2160 partie eWORD 115 
002162 03625 eWORD 116 
02164 036636 «WORD 117 
002166 037160 eWORD 118 


CZR 


DEF 
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AULT HARDWARE P-TABLE 


DWARE P-TABLE CONTAINS DEFAULT VALUES OF 
E OF THIS TABLE 


AR 
CE PARAMETERS. 
TO THE STRUCTURE OF THE HARDWARE P-TABLES. 


we ADDRESS 
EVEL 5 DEVICE 
E NUMBER 


1 -SBTTL DEFAULT HARDWARE P-TABLE 
é 10 
4 3 THE DEFAULT H 
5 3; THE TEST-DEVI 
$ ; IS IDENTICAL 
8 
9 002170 000004 eWORD 110000-L$HW/2 
00217 HW:: 
00217 DFPTBL:: 
10 00217 176200 «WORD 176700 
11 002174 000254 «WORD 254 
\¢ 002176 000240 -WORD 240 
7 002200 000000 «WORD 0 
20 
21 062202 110000: 


SEQ 0023 


Ll 2 
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1 .SBTTL SOFTWARE P-TABLE 


:" THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
;_ PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


CONAN Wwr 


002202 000016 «WORD £10001-L$Sw/2 
005504 LSsvsi 
9 8 04 000000 FC: «WORD 0 sFIRST CYLINDER sTESTS: 2°4,6-8,11,13,14,17,18 
10 00 01165 LC: «WORD 629. LAST CYLINDER S TESTS: 3~4.6,8°10, 14.17.18 
11 002210 000901 IC: “WORD 1 S INCREMENT CYLINDER S TESTS: 
ig 002212 00000 FT: ~WORD ¢ SFIRST TRACK S TESTS: ¢-7-11413.16.17 
1 00g214 0003 LT: ;WORD 31, SLAST TRACK STESTS: 3-6.11.16.16-18 
14 002216 000001 IT: ;WORD 7 s INCREMENT TRACK STESTS: 11,16,17 
15 002220 000000 FS: “WORD 0 SFIRST SECTOR S TESTS: g-3-7 13 
16 002222 000061 LS: .WORD 49, SLAST SECTOR STESTS: 5.6,14,18 
v7 002224 030221 PAT -WORD 030221 iWRITE DATA PATTERN STESTS: 16-18 (WORST CASE) 
19 002226 001 REDHDR: .BYTE 1 ;READ HEADER AND DATA CMD FLAG = DEFAULT: YES = SEEK TESTS 2-6 
20 002227 001 TIMTYP: BY 1 STYPE TIME = DEFAU S = TIMING TESTS 7-10,14,1 
21 002230 000 TIMSTL: .BYTE 0 [TIMING TESTS.STALL BETWEEN SEEKS: RANDOM INSTEAD OF 2 MSEC 
22 002231 900 STALLF: .BYTE 0 SSTALL FLAG: AFTER EVERY DRIVE FUNCTION = DEFAULT: 
23 ZNON-TIMING TESTS 1-6,11,14-18 
24 002232 000 STALRD: .BYTE 0 ZRANDOM STALL FLAG = DEFAULT: NO - PREREQUISITE: Stature 
25 002233 000 STOFLG: .BYTE 0 ZSOFTWARE TIMEOUT INHIBIT FLAG = DEF AULT NO = TESTS 
26 002234 000 RANPAT: .BYTE 0 RANDOM WRITE PATTERN = DEFAULT: NO = TEST: 13 
27 002235 000 WRTALL: .BYTE 0 WRITE DATA ALL OVER THE MEDIA FLAG = DEFAULT: NO 
¢9 002236 000 CHANGE: .BYTE 0 [CHANGE DRIVE PARAMETER FLAG 
3) EVEN 


38 
39 002240 L10001: 


AO_RPO7 FCTNL 
EQUATES SECT 


oO 
~ 
» 
= 

>r 

rc 


© 
= 


NOUSWNOOTY 


PDP SS 


000002 
000001 


001000 


000001 


000040 
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-SBTTL GLOBAL EQUATES SECTION 


344 
; THE GL .oeMt EQUATES SECTION 
+ ARE USED IN MORE THAN ONE 


C 
TEST 


DIF INITIONS 


100000 
000 


0 
0 


DODDDDDODODOWOOWO®D:.:.:. 
be at a a bs es a ee bn he Be ee 
a 
hnnnnnnnhnhnnnnnhan 
nnonnnnnnnnnnnnuan 
SSCOCCOOCOSOOS 
SooSOoSoOCO 
Soooo 


DWOODODODODODODODD vf vf whe ff 


Wow-- 
mt at at tt ot 


ee te tee et Oat Sad et bad Bd 
O—NWWE UO: JOOW 
nhnunnnnnhnnnu 
nhnHonnnnnnnnu 
ee at ee Pe Ot et be 
SO—NVWEUONWO 


m 
<< 
a a at ts ts 


-fa DOOCCCCOCoOO 


™ 
Pie a | 
me 


“nu——D we 
u 
" 


I 
) 
3 
ART== 3 
3 
r4 
2 


; PRIORITY LEVEL DEFINITIONS 


VVVU VD VUe-e-e-0. MMMmMrnes. 2-259. OMODWWIOw 


DDDDDD 


5 Pampas PROGRAM EQUATES THAT 


OR SUPERVISOR TO PROGRAM COMMUNICATION 
; START COMMAND WAS iSivee 


A S BEEN STARTE 
A POWER-FAIL/POWER-UP OCCURRED 


N 2 
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GLOBAL EQUATES SECTION 
900040 PRIOI== 40 
00000 PRIOO-= 0 
SOPERATOR F!AG BITS 
000004 Evi== 4 
00001 LOT== 19 
00002 ADR== 2 
000040 1DU== 40 
000100 1SR== 109 
00020 UAM== 20 
0004 ROE == 400 
001900 PNT== 100 
002000 PRI == 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOof== 46000 
100000 HOE== 100000 
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RHXK REGISTERS “i SEO 002 ee 
1 .SBTTL RHXK REGISTERS 
§ CONTROL AND STATUS REGISTER 1 (RPCS1) 
5 001 1€ == 100 : INTERRUPT ENABLE (BIT #6) 
g 02 RDY ss 2 9 SREADY (BIT #7) 
Al zz 4 [HIGH ORDER BUS ADDRESS BIT (BIT #8) 
& 1000 Al ss 1000 [HIGH ORDER BUS ADDRESS BIT (BIT #9) 
9 ;PSEL Ss == é 0 7POR LECT (BIT #1 
10 02 MCF. ss 9000 ZMASSBUSS PARITY ERROR (B11 #13) 
11 0000 TRE == 4000 [TRANSFER ERROR (BIT #14 
4 100000 MSSC == 100000 TSPECIAL CONDITION (BIT #15) 
14 
15 WORD COUNT REGISTER (RPWC) 
16 3 (EACH BIT IS CALLED BY BIT NUMBER) 
18 
19 3BUS ADDRESS REGISTER (RPBA) 
$1 7 (EACH BIT IS CALLED BY BIT NUMBER) 
25 CONTROL AND STATUS REGISTER 2 (RPCS2) 
$¢ 3US1 == 1 ZUNIT SELECT (BIT #0) 
26 3US2 sz 2 SUNIT SELECT (BIT #1) 
e7 7US4 ss 4 ZUNIT SELECT (BIT #2) 
28 Bal == 10 :BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
¢9 sMSPAT == 20 SMASSBUS PARITY TEST (BIT #4) 
0 000040 CLR z= 40 [CLEAR (BIT #5) 
31 IR == 100 : INPUT READY (BIT #6) 
32 :0R == 200 ;OUTPUT READY (BIT #7) 
33 000400 MPE == 400 S BUS PARITY ERROR (BIT #8) 
34 001000 == 1000 tMISSED TRANSFER ERROR (BIT #9) 
35 002000 MSPGE == 2000 ‘PROGRAM ERRO® (BIT #10) 
36 004000 NEM == 4000 risOM EMISTEN] MEMORY (BIT #11) 
37 010000 NED == 10000 sNON EXISTENT DRIVE (BIT #12) 
38 020000 UPE == 20000 SUNIBUS PARITY ERROR (BIT #13) 
39 040000 we == 40000 sWRITE CHECK ERROR (BIT #14) 
40 100000 DLT == 100000 :DATA LATE (BIT #15) 
4 
rk :DATA BUFFER REGISTER (RPDB) 
44 : (EACH BIT IS CALLED BY BIT NUMBER) 
46 
+4 .SBTTL RPO? REGISTERS 
$3 ;CONTROL AND STATUS 1 REGISTER. (#00) 
$1 360 s= 1 :G0 BIT (BIT #0) 
5 3F1 ss 2 FUNCTION CODE BIT #1 
5 if z= & FUNCTION CODE BIT ae 
54 iF == 10 FUNCTION CODE BIT #@ 
5s FG == 20 SFUNCTION CODE BIT #4 
56 “#5 == 40 sFUNCTION CODE BIT #5 
57 004000 bvA == 4000 [DEVICE AVAILABLE (BIT #11) 


cere 


ek tt et et et ot = ot I = 
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REGISTERS 
g 
$9 DRIVE STATUS REGISTER (RPDS) (#01) 
6 000001 om == 1 ZOFFSET MODE 
6 0002 EWN s= 2 TERROR WARNING 
64 066 ILV = 4 SSECTOR INTERLEAVE MODE IS ENABLED TH. H.W 
65 WV == 100 7VOL VALID (BIT #6) 
66 :DRY == 200 “DRIVE READY (BIT #7) 
67 =DPR == 400 ZDRIVE PRESENT (BIT #8) 
6H ‘PGM == 1000 TPROGRAMABLE (BIT #9) 
69 002000 LST =: 2000 SLAST SECTOR TRANSFERRED (BIT #10) 
70 ;WRL == 4000 SWRITE LOCK (BIT #11) 
71 :MOL == 10000 [MEDIUM ON-LINE (BIT #12) 
7 “PIP == 20000 [POSITIONING OPERATION IN PROGRESS (BIT #13) 
7 040000 ERR == 40000 [COMPOSITE ERROR (BIT #14) 
7 100000 ATA == 100000 SATTENTION ACTIVE (BIT #15) 
76 
As ERROR REGISTER #01 (RPER1) (#02) 
79 000001 ILF == 1 sILLEGAL FUNCTION (BIT #0) 
80 000002 ILR == 2 TILLEGAL REGISTER (BIT #1) 
81 000004 RMR z= 4 SREGISTER MODIFICATION REFUSED (BIT #2) 
82 :P == 10 :PARITY ERROR (BIT #3) 
83 000020 FER == 20 ‘FORMAT ERROR (BIT #4) 
84 000040 weF == 40 [WRITE CLOCK FAIL (BIT #5) 
85 000100 ECH == 100 SECC HARD ERROR (BIT #6) 
86 000200 HCE == 200 sHEADER COMPARE ERROR (BIT #7) 
87 0490 HCRC == 400 sHEADER CRC ERROR (BIT #8) 
88 001000 AOE == 1000 SADDRESS OVERFLOW ERROR (BIT #9) 
89 2000 1AE == 2000 s INVALID ADDRESS ERROR (BIT #10) 
90 004000 WLE == 4000 ‘WRITE LOCK ERRGR (BIT #11) 
91 0000 DTE == 10000 ‘DRIVE TIMING ERROR (BIT #12) 
92 020000 OP] == 20000 ‘OPERATION INCOMPLETE (BIT #13) 
93 040000 UNS == 40000 [DRIVE UNSAFE (BIT #14) 
9% 100000 DCK == 100000 [DATA CHECK ERROR (BIT 15) 
96 
97 sMAINTAINABILITY REGISTER #01 (RPMR1) (#03) 
99 100000 DMD == 100000 :DIAGNOSTIC MODE 
01 
02 ZATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 
04 zAT0 == 1 DEVICE 0 (BIT #0) 
05 sAT1 s= 2 SDEVICE 1 (BIT #1) 
06 TAT == 4 :DEVICE é (BIT #2) 
07 AT == 10 “DEVICE 3 (BIT #3) 
08 TATG == 20 SDEVICE 4 (BIT #4) 
C9 SATS == 40 SDEVICE 5 (BIT #5) 
10 sAl6 ~=—s_ ==_-:*100 SDEVICE 6 (BIT #6) 
Hf sAT7 ~—s-_ == _- 2000 “DEVICE 7 (BIT #7) 
13 
14 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 
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; (EACH BIT IS CALLED BY BIT NUMBER) 


sDRIVE TYPE REGISTER (RPDT) (#06) 


70100 == 1 sDRIVE TYP ER BIT 1 
De z= 2 DRIVE TYPE NUMBER BIT § 
:0T ¢ z= 4 DRIVE TYPE NUMBER BIT 
3DT0 == 10 DRIVE TYPE NUMBER BIT 4 
70T04 === 20 sRIVE TYPE NUMBER BIT 5 
D105 = == 40 DRIVE TYPE NUMBER BIT § 
sBT06 == 100 DRIVE TYPE NUMBER BIT 
3d10 == 200 DRIVE TYPE NUMBER BIT 8 
30708 == 400 RAM | TYPE NUMBER BIT 9 
:DRQ == 4000 DRIVE REQUEST REQUIRED (BIT #11) 
3MOH == 20000 SMOVING HEAD (BIT #13) 
3 TAP == 40000 sTAPE DRIVE (BIT #14) 
> NBA == 100000 ZNOT BLOCK ADDRESSED (BIT #15) 
sLOOK=AHEAD REGISTER (RPLA) (#07) 
:$CO == 100 SECTOR COUNT FIELD 0 (BIT #6) 
3$¢1 == 200 SECTOR COUNT FIELD 1 (BIT #7) 
3$C¢ == 400 sSECTOR COUNT FIELD ¢ (BIT #8) 
2S == 1000 SECTOR COUNT FIELD 3 (BIT #9) 
3$C€4 == 2000 SECTOR COUNT FIELD 4 (BIT #10) 
;RPO7 ERROR REGISTER #02 (RPER2) (#10) 
000400 WRYUNS == 490 WRITE OFF TRACK CENTER (WRITE UNSAFE) 
001000 WOR == 1000 ;WRITE OVERRUN ERROR 
002000 RWU1 == 2000 W/R UNSAFE ERROR 1 (WRITE ERROR) 
004000 RWU == 4000 tW/R UNSAFE ERROR ¢ (READ OR WRITE ERROR) 
010000 RWU == 10000 sW/R UNSAFE ERROR 3 (WRITE ERROR) 
100000 PGE == 100000 [PROGRAM ERROR 
3RPO7 ERROR REGISTER #03 (RPER3) 
;DGE == 1 sp nest tt COMMAND 
000010 DPE == 10 DATA PARITY DURING WRITE 
000020 SDF == 20 ;SERDES DATA FAILURE 
000040 DCU == 40 DC LOW UNSAFE 
000100 IXU == 100 INDEX PULSE UNSAFE 
000200 DvCc == 200 sDRIVE CHECK 
000400 PHF == 400 ;TACH CALIBRATE FAILU 
001000 LCE == 1000 LOST CYLINDER (POSIT LONER IN GUARD BAND) 
002000 LBC == 2000 sLOST BIT CLOCK 
040000 SK] == 40000 is EK INCOMPLETE 
100000 BSE == 100000 AD SECTOR 


sOFFSET REGISTER (RPOF) (#11) 
002000 HC] == 2000 sHEADER COMPARE INHIBIT (BIT #10) 


CZRJLAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 12-3 
RPO? REGISTERS 


ime 04000 ECI == 4000 sERROR CORRECTION CODE INHIBIT (BIT #11 
17 10000 FMT16 0 «=== 4441 SFORMAT BIT (BIT #12 
ive 100000 CMOD == 100000 [COMMAND MODIFIER BIT (BIT #13) 
176 
177 sDESIRED CYLINDER ADDRESS (RPDC) (#12) 
178 ; (EACH BIT IS CALLED BY BIT NUMBER) 
180 
181 45 pez! CYLINDER ADDRESS (RPCC) (#13) 
136 3(EACH BIT IS CALLED BY BIT NUMBER) 
184 
185 sSERIAL NUMBER REGISTER Lato (#14) 
198 ;(EACH IS CALLED BY BIT NUMBER) 
188 
189 sECC POSITION REGISTER (RPEC1) (#16) 
13 ; (EACH BIT IS CALLED BY BIT NUMBER) 
192 
193 sECC PATTERN REGISTER (RPEC2) (#17) 
13° 3(EACH BIT IS CALLED BY BIT NUMBER) 
196 
Hb 14 -SBTTL RPO7 DRIVER COMMANDS 
199 000101 NOOP == 101 2NO eee 
200 000105 SEEK == 105 
201 000107 RECAL == 107 RECALIGRATE 
202 000111 DRVCLR == 111 :DR IVE CLEAR 
203 000113 RELSE == 113 sRELEA + 
204 000115 OFFSET == 115 FFSET 
205 000117 TC == 117 TRETURN " CENTER LINE 
000121 READIN == 121 3READ IN PRESET 
207 000131 SEARCH == 131 C 
208 000135 IAG == 135 SDIAGNOSTIC MODE 
209 000143 ILLCMD == 143 3 ILLEGAL dagen A 
210 000151 CKD == 151 WRITE CHECK DAT 
211 000153 WCKHD == 153 WRITE CHECK HEADER AND DATA 
212 000161 WRIDAT == 161 :WRITE Bh 
213 000163 MTRK == 163 FORMAT TRACK 
214 000165 WRTTD == 165 ;WRITE “TRACK DSECRIPTOR 
215 000171 RDDAT == 171 sREAD DATA 
21¢ 000173 RDHD == 173 ;READ HEADER AND DATA 
sis 000175 RDTD == 175 ZREAD TRACK DSECRIPTOR 
$00 177400 SCTRWC == -256. DEFAULT WORD COUNT 
$5) 7THE FOLLOWING ARE SPECIAL DRIVER COMMANDS (NOT CONTROLLER COMMANDS) 
238 000141 GETREG == 141 POINT orth By “bpete RPBA, RPDA AND STORE THEM AT ADDRESS 
225 000145 MAINT == 148 WRITE ees REGISTER RPMR1 
226 000147 SETFORM == 147 ;SET FORMAT PSEUDO-CMD: WRITE OFFSET REGISTER, SETFOR 
227 sFIRST READS RPOF, EXTRACT ITS LO BYTE, CHANGES ITS HI 
228 [PE "DPB', MERGES BOTH BYTES TO WRITE “RPOF. HENCE SET 


) 


SEQ 0030 


F 3 
CZRILAD RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 12-4 ; SEQ 0031 


RPO7 DRIVER COMMANDS 
229 WRITES RPOF WITH HI BYTE PER ‘DPB’, LO BYTE UNCHANGED. THE 
§ ? ;COMMAND OFFSET DOES THE OPPOSITE. 


G6 3 
CZRJLAO RPO7 FCTINL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 13 SEQ 0032 
GLOBAL DATA SECTION 
: .S8TTL GLOBAL DATA SECTION 
3+¢ 

4 : THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 

é : IN MORE THAN ONE TEST. 

8 002240 000001 ITCNT:: .WORD 1 sTEST ITERATION COUNTER 

9 002242 000900 ISRCNT:: WORD 9 S INTERRUPT SERVICE COUNTER 

10 002244 902000 MTIMES:: .WORD 1024. STEST ITERATION COUNT; TESTS 14. & 18. 
11 002246 0000 DOTWO:: .WORD 0 [USED TO FORCE TWO ITERATIONS OF AN OPERATION 
ie B8 23 000000 CLKSTA:: .WORD 8 sCLOCK STATUS (NO CLOCK= 0,KW11-P= 1 OR KWile-L= <1 
1 52 000900 BYPASS:: .WORD TBYPASS ROUTE ADR; SET IN CALL ERRABO 
14 CALLERS; CALL.A/B/C, DRVCAL, SRCHOO. 
13 002254 000000 SVSTAT:: .WORD 0 SSTATUS/ERROR INDICATOR IS; SAVED HERE ON AN ERROR 
17 002256 001165 NC1::  .WORD 629. SLAST PHYSICAL CYL 

18 002260 001166 NC2::  . WORD $ 0. SFIRST FE CYL 

19 O06 $0¢ 000037 NT1:: WORD Ne ZLAST PHYSICAL TRK 

20 002264 000061 NS1:: .WORD 49, ‘LAST PHYSICAL SEC 
22 002266 000000 CYL.RD:: .WORD 0 ZCYLINDER READ 

23 002270 000000 K.RD:: .WORD 0 STRACK READ 

24 002272 000 SEC.RD:: .WORD 0 sSECTOR REA 

$3 002274 000 CYL.DS:: .W 0 [CYLINDER DESIRED 

6 002276 900000 SEC.DS:: . 0 sSECTOR DESIRED 

44 002300 000000 TRK.DS:: .WORD 0 STRACK DESIRED 
33 002302 000000 TIM.UP:: .WORD 0 sMINIMUM TIME 

0 002304 000000 .WwORD 0 ‘NUMBER OF COUNTS BELOW MIN. LIMIT 

3! 002306 000000 -WORD 0 sMAXIMUM TIME 

5 002310 000000 .WORD 0 ‘NUMBER OF COUNTS ABOVE MAX. LIMIT 

33 002312 000000 000000 -WORD 0,0 :TOTAL TIME OF ALL SEEKS 
5 002316 000000 .WORD 0 ZNUMBER OF SEEKS PERFORMED 

002320 000000 TIM.DN:: .WORD 0 sMINIMUM TIME 

37 002322 000000 .wORD 0 ‘NUMBER OF COUNTS BELOW MIN. LIMIT 

38 002324 000000 -WORD 0 sMAXIMUM TIME 

39 002326 000000 .WORD 0 ‘NUMBER OF COUNTS ABOVE MAX. LIMIT 

40 002330 000000 000000 .WORD 0,0 sTOTAL TIME OF ALL SEEKS 

41 002334 000000 .WORD 0 [NUMBER OF SEEKS PERFORMED 

42 002336 000000 TIM.PT:: .WORD 0 :POINTS TO TABLE OF TIMES 
43 002340 000000 WCEFLG:: .WORD 0 SFATAL WRITE CHECK ERROR FLAG 

44 902342 000000 DELTA:: .WORD 0 :MEMORY SIZING SCRATCH LOCATION 

45 002344 163400 TRKWC:: .WORD -<256.*25.> [WORD COUNT FOR HALF A TRACK IN 16 BIT MODE 
46 002346 000012 STALL1:: .WORD 10. *10 MILLISECONDS STALL 

7 002350 000012 STALL2:: .WORD 10. 710 MILLISECONDS STALL 
49 :BIT TABLE 

50 002352 000001 BITS:: .WO B1T00 

51 002354 000002 .WORD BI1T01 

¢ 002356 000004 W B110e 

53 002360 000010 4 BITO 

54 002362 000020 “WORD BIT04 

58 002364 000040 D BIT0S 

56 002366 000100 ~WORD BIT06 

57 002370 000200 .WORD BI1T07 
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8 72 
38 goe37e 
60 7 
61 

o¢ 0 
6 04 
64 

65 1 
66 1 
67 14 
68 16 
$° 

0 

71 4 
4; 6 
7 0 
74 

75 

76 

77 

78 

79 002432 
80 002434 
81 002436 
82 002440 
85 

84 

85 0024 
86 0024 
87 002446 
88 002450 
90 002452 
91 002454 
92 002456 
93 002460 
95 ootee 
96 002464 

97 002466 
38 002470 
100 092472 
101 902474 
102 002476 
103 002500 
104 
105 
106 
107 
108 
109 
110 002502 
111 002504 
112 002506 
113 
114 
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010770 


005033 
000000 
000000 
003246 
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SBTTL TIMING LIMITS 
at Meh a TEST ate FOR RPO7 DRIVE 


OHZ AND 60HZ TA 
i7A:: WORD ROTATE 
~ WORD 
“WORD 1603. ZLO LIMIT (16.515MS + 3%) 
“WORD 1702. SHI LIMIT (16.515MS = 3%) 
>SEEK TEST TABLES 
TIMT10:: .W ONECYL s FORWARD 
.WORD REV ;REVERSE 
.WORD 0 “NO LO LIMIT 
.WORD 500. SHI tIMiT (5.0MS) 
TIMT11:: .WORD AVERGE s FORWARD 
.WORD REV : REVERSE 
“WORD 0 LIMIT 
-WORD 2300. a Lomi T (23.0MS) 
TIMT12:: .WORD MXSEEK ; FORWARD 
.WORD REV = RE VERSE 
-WORD 0 [NO LO LIMIT 


T 


-WORD 4600. 3H] LIMIT (46.0MS) 


1420:: .WORD MARK sADDR MARK TEST 
“WORD 0 :2ND MSG; NONE 
“WORD 0 ‘NO LO LIMIT 
“WORD 1702. THI] LIMIT (16.515MS = 3%) 


SPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS 


ROTATIONAL + LO/HI LIMITS 


*50HZ2 AND 60HZ T 
$P7:: 


-WORD MSG/7X 7MSG 
WORD 1603. :L0 LI 
WORD 1702. sHI LI 


TIMING TEST MESSAGES AND LO/HI LIMITS 


SEQ 0035 


kk a kd tt dt 
rrr »= forr so} 
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10 Anas $P10:: .WORD MSG10x :™SG 
12 9000 - WORD sNO LO LIMIT 
As 64 - WORD 00. cH] LIMIT (5.0MS) 
238 005138 SP11:: —_ MSG11x 10 LIMiT 
338 Ooesze ;WORD 300. SHI LIMIT (23.0MS) 
524 O05 Ne SP12:: .WORD MSG12x 3456 
2 6 80809 - WORD sNO LO LIMIT 
0 010770 -WORD 4600. sHI1 LIMIT (46.0MS) 
532 005132 $1420:: .WORD MSG14x 3MSG 
5 000000 -WORD sNO LO LIMIT 
536 005246 -WORD 1702. sMI LIMIT (16,515MS = 32) 


an 
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mine LIMITS 


; :D°B (DRIVE PARAMETER BLOCK) 
002540 00 DPB.A:: .BYTE :(0) DRIVE NUMBER 
& 002541 $08 “BYTE 6 [(1) OFFSET VALUE OR FMT16, ECI, AND HCI 
5 00 24¢ 000 “BYTE 0 i (8) COMMAN 

g 00254 000 “BYTE :(3) PSEL AND A17 AND A16 

002544 00000 “WORD 7(4) WORD COUNT (MUST BE NEG.) 

B 002546 04261 <WORD DBUFF °(6) BUFFER ADDRESS OR 

9 SREGISTER TABLE POINTER 

10 002550 000 .BYTE 0 :(10) SECTOR ADDRESS OR 

11 SFIRST REG. INDEX 

i 002551 000 .BYTE 0 [(11) TRACK ADDRESS OR 

' LAST REG. INDEX 

14 002552 000000 .WORD 0 £412) CYLINDER ADDRESS 

15 002554 002744 “WORD REG £(14) ERROR TABLE POINTER 

16 sPOINTS TO THE FIRST OF TWENTY 
17 SLOCATIONS OF WHERE THE DRIVER 
18 [1S TO STORE THE RHXX/RP 

19 SREGISTERS ON AN ERROR. IF LEFT 
20 *ZERO REGISTERS ARE NOT SAVED. 
21 002556 000000 .WwORD 0 7(16) STATUS/ERROR INDICATOR 
3¢ [BIT15=1=>ERROR OCCURRED 

2 [BIT07=1=>DONE 

24 [B1T14-B1T09 AND 81106-81103 
$? s INDICATE TYPE OF ERR 
27 002560 000 DPB.B:: .BYTE 0 7(0) DRIVE NUMBER 

28 002561 000 “BYTE 0 [(1) OFFSET VALUE OR FMT16, ECI, AND HCI 
9 00256 000 “BYTE 0 i (2) COMMAND 

0 00256 000 “BYTE 0 :(3) PSEL AND A17 AND A16 

1 002564 177776 ‘WORD 2 (4) D COUNT (MUST BE NEG.) 
32 002566 042610 -WORD DBUFF :(6) BUFFER ADDRESS OR 

33 SREGISTER TABLE POINTER 

34 002570 000 .BYTE 0 :(10) SECTOR ADDRESS OR 

35 SFIRST REG. INDEX 

36 002571 000 .BYTE 0 7(11) TRACK ADDRESS OR 

Hi SLAST REG. INDEX 

8 002572 000000 .wORD 0 +(12) CYLINDER ADDRES 

39 002574 002744 “WORD REG 7(14) ERROR TABLE POINTE? 
40 ‘POINTS TO THE FIRS’ OF “WENTY 
41 [LOCATIONS OF WHERE THE ®RIVER 
42 ‘IS TO STORE THE RHXX/R°07 
43 SREGISTERS ON AN ERROR. IF LEFT 
ho [ZERO REGISTERS ARE NOT SAVED. 
4§ 002576 000000 .wORD 0 :(16) STATUS/ERROR INDICATOR 
46 SBIT15=1=>ERROR OCCURRED 

47 'B1107=1=>DONE 

48 *BIT14-BIT09 AND BIT06-B1T03 
3 : INDICATE TYPE OF ERROR 

51 002600 000 DPB.C:: .BYTE 0 :(0) DRIVE NUMBER 

52 002601 000 “BYTE 0 [(1) OFFSET VALUE OR FMT16, ECI, AND HCI 
53 902608 000 -BYTE 0 (2) COMMAND 

54 00260 000 “BYTE 0 (3) PSEL AND A17 AND Al6 

55 002604 177776 “WORD = =2 (4) WORD COUNT (MUST BE NEG.) 
56 002606 042610 .WORD  DBUFF 7(6) BUFFER ADDRESS 0 

57 TREGISTER TASLE POINTER 


aon 
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58 002610 000 BYTE 0 3410) SECTOR ADDRESS OR 
59 FIRST REG. INDEX 
60 002611 000 BYTE 0 :(11) TRACK ADDRESS OR 
$3 002612 900000 WORD 6 AGE CYLINDER’ ADDRESS 
o8 002614 002744 -WORD REG :(16) ERROR TABLE POIN 

sPOINTS TO THE FIRST oF TWENTY 
gs ZLOCATIONS OF WHERE THE DRIVER 
t6 31S TO STORE THE RHXX/RPO7 
67 SREGISTERS ON AN ERROR. IF LEFT 
68 sZERO REGISTERS ARE NOT SAVED. 
69 002616 000000 -WORD 0 3416) _STATUS/ERROR INDICATOR 
70 [BIT15=1=>ERROR OCCURRED 
71 :B1107=1=>D0NE 
7 :B1T14-BIT09 AND BIT06-BITO3 
6 : INDICATE TYPE OF ERROR 
75 002620 000 DIADPB:: .BYTE 0 3(0) DRIVE NUMBER 
76 062621 000 BYTE 0 7(1) OFFSET VALUE OR FMT16, ECT, AND HCI 

7 oo26ce 000 -BYTE 0 :(@) COMMAND 

78 00262 000 BYTE 0 :(3) PSEL AND A17 AND A16 
79 002624 000000 .WORD 0 7(4) WORD COUNT (MUST BE NEG.) 
80 002626 042610 -WORD DBuUFF :(6) BUFFER ADDRESS 0 
81 SREGISTER TABLE POINTER 
82 002630 000 BYTE 0 (10) SECTOR ADDRESS OR 
83 sFIRST REG. INDEX 
84 002631 000 -BYTE 0 :(11) TRACK ADDRESS OR 
85 SLAST REG. I NDEX. 
86 002632 000000 -WORD 0 (12) CYLINDER ADDRES 
87 002634 002744 -WORD REG :(14) ERROR FABLE OPol TER 
te] sPOINTS TO THE FIRST OF TWENTY 
89 ZLOCATIONS OF WHERE THE DRIVER 
90 31S TO STORE THE RHXX/RP 
91 ZREGISTERS ON AN ERROR. IF LEFT 
92 3ZERO REGISTERS ARE NOT SAVED. 
93 002636 000000 WORD 0 :(16) STATUS/ERROR INDICATOR 
94 :BIT15=1=>ERROR OCCURRED 
95 *BIT07=1=>D0N 
96 7B1T14-BIT09 AND 81106-81103 
97 S INDICATE TYPE OF ERROR 


. - 
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TIMING LIMITS 
1 
00264 UNIT «WORD 0 sUSED TO SELECT A UNIT FOR TE“” 

00 eco 17879 RPADR:: .WORD 176700 sCONTAINS RPCS1 BASE ADDRESS 

4 002644 000254 000240 RPVtL.* .WORD g5%09°52. 3 CONTAINS vegan ADDRESS & BR . VEL 
5 00 620 0 RHEXT:: .WOR 0 sCONTAINS RH70 OFFSET TO RPBAE 

§ 88 65 00000 RHTYPE:: WORD sCONTAINS RHXX TYPE; RH11= 0, RH70= 1 

0 eee 000000 DRVNO:: .WORD sDRIVE NUMBER 

. 002656 000000 DRVSN:: .W sSTORAGE FOR EACH S/N DIGIT 

10 002660 176700 RPCS1:: .WORD 176700 sBASE ADDRESS USED FOR THE DRIVE 
11 002662 176702 PwC:: .WORD 176702 ORD COUNT REGISTER 

i 664 176r0e RPBA:: .WOR 176704 sBYTE ADDRESS REGISTER 

1 176706 PDA:: .WOR 176706 DESIRED SECTOR/TRACK ADDRESS 

14 0026 8 176710 RPCS2:: .WORD 176710 sRPO? STATUS REGISTER 

15 002672 176712 PDS:: .WOR 176712 sRPO7 DRIVE STATUS 

16 002674 176714 RPER1:: .WOR 176714 3RPO7 ERROR REGISTER #1 

17 002676 176716 RPAS:: .WORD 176716 sRPO7 ATTENTION SUMMARY PSEUDO REGISTER 
18 002700 176/20 RPLA:: .WO 176720 sRPO7 LOOK AHEAD REGISTER 

19 002702 176722 RPDB:: .WORD 176722 :RPO7 DATA BUFFER 

20 002704 176724 RPMR1:: .WO 176724 sRPO7 MAINTENANCE REGISTER #1 

21 002706 176726 RPDT:: .WOR 176726 DRIVE TYPE REGISTER 
22 002710 176730 RPSN:: .WORD 176730 :RPO7 SERIAL NUMBER 

23 002712 176732 RPOF:: .WORD 176732 sRPO? OFFSET REGISTER 
24 002714 176734 RPDC:: .WORD 176734 :RPO7 DESIRED CYLINDER 
25 002716 176736 CC:: .WORD 176736 sRPO7 CURRENT CYLINDER 
26 002720 176740 RPER2:: .WORD 176740 3RPO7 ERROR REGISTER #2 
27 002722 176742 RPER3:: .WOR 176742 sRPO7 ERROR REGISTER #3 
28 002724 176744 RPEC1:: .WORD 176744 :RPO7 ERROR POSITION 
$3 002726 176746 RPEC2:: .WORD 176746 3RPO7 ERROR PATTERN 

0 002750 176750 RPBAE:: .WOR 176750 sRH70 REGISTER 

HH 002732 176752 RPCS3:: .WORD 176752 zRH70 REGISTER 
33 sATTENTION BITS TABLE (ATABIT=8 BYTES) 
34 sTHIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
$ sATTENTION BIT 
37 002734 001 ATABIT::.BYTE 1 sDRIVE 0 

38 002735 002 -BYTE 2 sDRIVE 1 

39 002736 004 ~BYTE 4 sDRIVE 2 
40 002737 010 BYTE 10 sDRIVE 3 
41 002740 020 BYTE 20 sDRIVE 4 
42 002741 040 -BYTE 40 sDRIVE 5 
43 00274 100 -BYTE 100 sDRIVE 6 
rf 00274 200 BYTE 200 sDRIVE 7 
46 


“s z STORAGE FOR DEVICE REGISTERS 
48 002744 REG::  .BLKW 22. gSAVE REGISTERS HERE 
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NOUN NEW 


sis 


wren 
NOW S00 
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onN NS 
Ow 
so wn 


90402 
004076 


004164 
0 


04232 
004316 
004342 
004345 
004422 
004461 
004525 
04544 
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-SBTTL GLOBAL TEXT SECTION 


344 
; THE GLOBAL TEXT SE 
+ MESSAGES, AND ASCI 
; MORE THAN ONE TEST 


CTION CONTAINS FORMAT STATEMENTS, 
1 INFORMATION THAT ARE USED IN 


sNAMES OF DEVICES SUPPORTED BY PROGRAM 


LSDVTYP:: 
sASCIZ /RPO7/ 
SEVEN 


; TEST DESCRIPTION 


LSDESC:: 
«ASCIZ /RPO7 FUNCTIONAL TEST/ 
EVEN 


+ FORMAT STATEMENTS USED IN PRINT CALLS 


RLF:: .ASCIZ /%N/ 
DH25A:: .ASCIZ /%ADRIVE %01%N/ 
DH44A:: .ASCIZ /ZACYL 2D3%A. / 
DH44B:: .ASCIZ /ZATRK 2D2%A. / 
DH44C:: .ASCIZ /ZASEC XD2%A. / 
DH44D:: .ASCIZ /ZARPER2 (HEX) 2T2RT2T2T/ 
DH44E:: .ASCIZ /ZNZADRIVE Ss RPWC RPBA RPDA RPCS2 = RPDS/ 
DH44F:: .ASCIZ /2NZO6ZA %06%A 206%A 206%A %06%A %06%A %06/ 
DH44G:: .ASCIZ /ZNZARPER1 RPAS RPLA RPDB RPMR1 = RPDT RPSN/ 
DH44H:: .ASCIZ /ZNZO6%A %06%A 206%A X%06%A X06%A %06%4 1%06/ 
DH441:: .ASCIZ /ZNZARPOF RPDC RPCC RPER RPEF RPEC1 RPEC2/ 
DH44J:: .ASCIZ /EZNZO6%A %06%A_ %06%A Z06%A %C6%A % da %06%N/ 
DH44K:: .ASCIZ /ZARPBAE —_RPCS3/ 
DH44L:: .ASCIZ /ZNZO06%A %062N/ 
DH45A:: .ASCIZ /ZADRV CYL. TRK _SEC%N/ 
DH45B:: .ASCIZ /203%A 2ZD3%A. 2D3%A. 2D3%A.%N/ 
DH45C:: .ASCIZ /ZAGDCYL GDIRK GDSEC BDCYL BDTRK_ BDSECIN/ 
DH45D:: .ASCIZ /EDSRA.2S32D5%A.2S52D52A. 2S52D32A. 25320 52A. 2S 32D 352A. 2N/ 
DH52A:: .ASCIZ /%ZNZANUMBER OF LOST REVOLUTIONS=%D4%A./ 
NOCLK:: .ASCIZ_ /%NZANO P-CLOCK, TIMING TESTS WILL NOT BE EXECUTED%N/ 
DSNMSG:: .ASCIZ /ZNZADRIVE Z01%A, PG/ 
SNDIGT:: .ASCIZ /21/ 
WRTENM:: .ASCIZ /ZATEST 2D02%A. NOT RUN, NOT ENABLED BY USERZN/ 
SEAERR:: .ASCIZ /ZAUNRECOVERABLE SEARCH ERRORZN/ 
EABA eASCIZ /ZASEARCH FAILED AFTER 16. RETRIESZN/ 
ABOTST:: .ASCIZ /ZAABORT TESTZN/ 
POSERR:: .ASCIZ /ZAPOSITION ERROR, TEST ABORTEDZN/ 


SEQ 0038 


n 3 
CZRILAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 16-1 SEQ 0039 
GLOBAL TEXT SECTION 

71 9ote08 116 $2 ROTATE:: .ASCIZ /ZNZAROTATIONAL SPEED TIMESZNZA * / 

7 Spee t, 116 4 yo 334 eASCIZ /ZNZAONE CYLINDER SEEK TIMESZNZA * FORWARD/ 
7 21 4 116 45 AVERGE:: .ASCIZ /2NZAAVERAGE SEEK TIMESZNZA © FORWARD/ 
74 0047 4 116 4 MXSEEK:: .ASCIZ /Z2NZAMAXIMUM SEEK TIMESZNZA * FORWARD/ 
75 Bn20 4 116 45 WMARK:: .ASCIZ /2ZNZAADDRESS MARK DETECT TIMESZNZA * / 
18 1 4 101 40 FWD:: eASCIZ /ZA * FORWARD/ 

00511 045 101 40 REV:: eASCIZ /ZA * REVERSE/ 

i 0051 MSG7X:: 

80 0051 MSG10X:: 

81 0051 MSG11X:: 

B¢ Beet - MSG14XK:: 

8 51 945 101 040 MSGI2K:: .ASCIZ /2A * LIMIT(S)/ 

BS 005160 045 116 045 UNSMSG:: .ASCIZ /ZNZADRIVE %01%A UNSAFEZN/ 

86 005201 045 116 045 NEDMSG:: .ASCIZ /2NZADRIVE %201%A NON-EXISTENT2ZN/ 

87 ee 045 116 045 OFLMSG:: .ASCIZ /2NZADRIVE ZO1ZA OF F-LINEZN/ 

4 005273 045 116 045 NOTMSG:: .ASCI2 /2NZADRIVE %01%4 NOT AN RPO72ZN/ 

oe -SBTTL GLOBAL ASCII MESSAGE SECTION 

92 005331 122 110 130 EM1:: eASCIZ /RHXX CONTROL BUS PARITY ERROR MCPE=1/ 

93 005376 122 110 130 EM2:: eASCIZ /RHXX DATA BUS PARITY ERROR MDPE=1/ 

94 005440 122 110 130 EM3:: eASCIZ /RHXX ILLEGAL CONDITIONS SET (NED,NEM,PGE ,MXF)/ 
95 005516 127 122 111 ~EM4: eASCIZ /WRITE CHECK ERROR/ : 

96 005540 104 101 124 EMS: eASCIZ /DATA LATE ERROR/ 

97 005560 104 122 111 ~EM6: eASCIZ /DRIVE PROGRAMMING ERROR (PGE)/ 

s 005616 114 117 123. EM?: eASCIZ /LOSTS BIT CLOCK (LBC)/ 
100 005644 127 122 111 «EMI eASCIZ /WRITE CLOCK FAILS/ 

101 005666 127 i22 111 ~+€EM1 eASCIZ /WRITE LOCK ERROR/ 
102 005707 104 101 124 EMI eASCiZ /DATA ERROR (DCK)/ 
103 005730 104 122 111 ~EM14 eASCIZ /DRIVE BUS PARITY ERROR (DPE)/ 
104 005765 111 114 114 €M15 eASCIZ /ILLEGAL CONDITIONS SET (CILF,ILR,RMR)/ 
105 006032 101 104 104 €EM16 eASCIZ /ADDRESSING ERROR (IAE,A0E)/ 
196 006065 123 105 105 €EM17 eASCIZ /SEEK ERROR (SKI,LCE)/ 
108 006112 103 114 117 EM20: eASCIZ ACLOCK (KW11-P) OVERFLOW IN TIMING TEST@ 
109 006161 105 101 122 EMe1: eASCIZ /EARLY WARNING (EWN) / 

110 006205 122 105 101 EM22:: .ASCIZ /REA ITE HEA 

111 006235 104 101 124 EM23: -ASCIZ /DATA FORMAT BIT ERROR (FER)/ 

a4 006271 110 105 101 €M24:: .ASCIZ /HEADER INFORMATION ERROR (HCE) / 

113 006330 104 122 111 EM25:: .ASCIZ @DRIVE HAS BECOME NON-EX 

114 906366 104 122 111 EM26:: .ASCIZ @DRIVE HAS NOT RESPONDED TO PORT REQUEST@ 
132 006436 123 117 106 EM27:: .ASCIZ @SOFTWARE TIMEOUT ON THIS DRIVE@ 

117 006475 106 101 1246 €M30:: .ASCIZ @FATAL MASSBUS PARITY ERROR (MCPE=1 OR PAR=1)@ 
118 006552 117 106 106 EM31:: .ASCIZ @OFFLINE OR UNSAFE DRIVE REQUESTED@ 

119 006614 127 122 111 eneg:: eASCIZ /WRITE-READY UNSAFE/ 

120 006637 104 103 040 €M35:: .ASCIZ /DC POWE 

121 006657 111 116 104 €M34:: .ASCIZ /INDEX UNSAFE/ 

t22 006674 120 122 117 €M35:: .ASCIZ /PROCESSOR HANDSHAKE FAILURE/ 

‘$7 006730 104 122 111 €M36:: .ASCIZ /DRIVE OFFLINE OR NOT AN RPO?7/ 

125 006765 117 120 105 €M41:: .ASCIZ /OPERATION INCOMPLETE (OPI)/ 

126 007020 111 115 120 EM42:: .ASCIZ /IMPROPER HEADER DATA/ 

127 007045 105 103 103 €M43:: .ASCIZ /ECC LOGIC FAILURE/ 
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111 123 EM44:: .ASCI /misc DRIVE ERROR; RPER1, RPER2, RPER3/ 

122 177 €M45:: .ASCI /ORiV TIMING ERROR (DTES/ 

1 101 EMGG: "ASCIZ /HEADER CRC ERROR (HCRC)/ 

116 103 EM47:: .ASCIZ /UNCORRECTABLE ECC ERROR/ 

101 123 €MS0:: .ASCIZ /LAST BLOCK TRANSF ‘LOT’ NOT SET AFTER READING LAST SECTOR/ 
1 122 €M51:: .ASCIZ /ADRS OVERFLOW BIT. sAOE* NOT SET AFTER READING LAST SECTOR/ 
117 123 €M52:: <.ASCIZ /LOST REVOLUTION ER 

120 104 €M54:: .ASCIZ /RPDS, T SET ‘ON OFFSET CMD/ 

120 104 €M55:: <:ASCIZ /RPDS. OM! NOT RESET ON RETURN-TO=CENTER=LINE CMD/ 


SEQ 0040 
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GLOBAL ERROR REPORT SECTION 


.SBTTL GLOBAL ERROR REPORT SECTION 
DH44:: 


MO CYL.RD,=(SP) 
MOV #DHGGA.=(SP) 
MOV #2,°(SP) 

MOV R 


BIC #177400, (SP) 
JSR PC,OCTHEX 
MOV #PSTACK46,-(SP) 


MOV #DH44D ,-(SP 
MOV #5,-(¢ 
MOV RO 


SP, 
TRAP CSPNTB 
ADD #14,SP 


MOV #DHS4E , (SP) 
#1,-(SP) 


zPRINT “DRIVE RPCS1 


;PRINT ‘RPER1 


MOV #DH44G,-(SP) 
MOV #1,=(SP) 


SP, 
TRAP CSPNIX 
ADD #4,SP 


#6,SP 
MOV REG+40,=(SP) PRINT RPER2 ERROR CODE IN HEX 


SEQ 0041 


RPCS2 RPDS* 


RPSN* 


C2! 
GL( 


D 4 
CZRIJLAO RPO? FCTNL TEST MACRO V0G.00 1-JAN-83 11:06:45 PAGE 17-1 SEQ 0042 
GLOBAL ERROR REPORT SECTION 
16 010070 013746 002774 MOV REG*+30,-(SP) 
10074 013746 09 77 MOV REG+26,-(SP) 
10100 013746 00277 MOV REG+24,=(SP) 
10104 013746 0027 MOV REG+ gon (SP) 
919110 013746 002764 MOV REG+20,=(SP) 
10114 013746 00276 MOV REG+16,=(5P) 
010120 013746 00276 MOV REG+14,=(SP) 
010124 012746 00344 MOV #DH44H,-(SP) 
010130 012746 000010 MOV #10,-(§P) 
010134 01060 MOV SP, RO 
010136 10441 TRAP = CSPNTX 
010140 062706 000022 ADD #22,SP 
17 sPRINT ‘RPOF RPDC RPCC RPER2 RPER3 RPECI RPEC2° 
18 010146 012746 003523 MOV #DH441,-(SP) 
010150 012746 000001 MOV #1,-(SP) 
010154 010600 MOV SPR 
010156 104415 TRAP CSPNTX 
010160 062706 000004 ADD a 
19 010164 013746 003012 MOV REG+46,-(SP) 
010170 013746 003010 MOV REG+44,=(SP) 
010174 013746 003006 MOV REG+42,-(SP) 
010200 013746 003004 MOV REG+40,-(SP) 
010204 013746 003002 MOV REG+36,-(SP) 
010210 013746 003000 MOV REG+34,-(SP) e 
010214 013746 002776 MOV REG+32,-(SP) 
010220 012746 003615 MOV #DH445,-(SP) 
010224 012746 000010 MOV #10,-(SP) 
010230 01060 MOV SP,RO 
010232 10441 TRAP = CSPNTX 
010234 062706 000022 ADD #22,SP 
20 010240 005737 002652 TST RHTYPE :1S IT RH70 CONTROLLER ? 
21 010244 001424 BEQ 1$ BR IF 
22 sPRINT ‘RPBAE RPCS3° 
23 010246 012746 003677 MOV #DH44K,-(SP) 
010252 012746 000001 MOV #1,-(SP) 
010256 010600 MOV SP. 
010260 104415 TRAP CSPNTX 
010262 062706 000004 ADD 44,5 
24 010266 013746 003016 MOV REG+52,=(SP) 
010272 013746 003014 MOV REG+50,-(SP) 
610276 012746 003717 MOV #DH44L.-(SP) 
010302 012746 000003 MOV #3,-(SP) 
010306 010600 MOV SP. 
910310 104415 TRAP C$PNTX 
010312 062706 000010 ADD #10,SP 
25 010316 1$: CRLF 
26 010316 012746 003054 MOV #CRLF -(SP) 
010322 012746 000001 MOV #1,-(SP) 
010326 010600 MOV SP,RO 
010330 104414 TRAP  C$PNTB 
010332 062706 000004 ADD #4,SP 
27 010336 110002: 
a 010336 104423 TRAP  C$MSG 
29 010340 DH45:: 
30 010340 012746 003736 MOV #DH45A,-(SP) 
010344 012746 000001 MOV #1,-(SP) 
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000007 


000020 
003054 
000091 


000004 


002310 
004164 
000002 
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000001 


000004 


A 
110003: 


DHS2:: 


A 
L10004: ; 


DH25:: 
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#20,SP 
#CRLF ,-(SP) 
#1 ) 


=(SP 


CRLF 
SP-RO 
CSPNTB 


CSMSG 


TIM, UP+6,-(SP) 
#DH52A,-(SP) 
#2,-(SP) 

P,R 


CS$PNTB 
#6,SP 


#CRLF ,-(SP) 
#1,-(SP) 
SP,RO 


CSPNTB 
#4,SP 


;CR-LF 


CSMSG 


DRVNO,-(SP) 
#DH25A, -(SP) 
#2,-(SP) 


SEQ 0043 
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SP.RO 
CSPNTB 
#6,SP 
#CRLF (SP) 
#i,-(§P) 
SP-RO 
CSPNTB 
#4,SP 


CSMSG 


CRLF 


SEQ 0044 
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SEQ 0045 
SUBROUTINES TION 


1 .SBTTL GLOBAL SUBROUTINES SECTION 

§ s*SAVE RO-RS 

° eens en PC SAUREG 

- P Vv 
§ 010646 SAVREG: 
1064 046 MOV RO,-(SP) ::PUSH RO ON STACK 

K 1065 : % MOV R1.=(5P) +:PUSH R1 ON STACK 

9 01065 MOV *=(SP) PUSH Re ON STACK 

10 010654 1 MOV *=(5P) +PUSH R3 ON STACK 

11 01 18409 MOV R4,=(5P) +:PUSH R4 ON STACK 

ig 1 10546 V R5.=(SP) +:PUSH RS ON STACK 

13 01 16546 000020 MOV OtsP) ,-(SP) t:SAVE PUSHED PARAMETER 
14 010666 016646 000020 MOV O(SP).-(SP) SAVE PC OF MAIN FLOW 

15 0106 16646 000020 MOV O(SP).=(SP) :SAVE PC OF SAVREG CALL 
16 010676 000207 RTS PC 

18 s*RESTORE RO-RS 

19 [*CALL: 

20 :f JSR PC,RESREG 

21 010700 RESREG: 
22 010700 000020 MOV ($P)+,20(SP)  s;RESTORE PC OF RESREG CALL 
23 010704 000020 MOV (3P) + .20( SP)  ::RESTORE PC OF MAIN FLOW 
24 010710 000020 MOV ($P)+ +20 SP) i RESTORE PUSHED PARAMETER 
25 010714 MOV (SP) +.R5 t:POP STACK INTO R5 

26 010716 MOV (SP) +_RG ::POP STAC INTO R R4 

27 010720 O12 MOV (SP) +.R3 [POP STACK INTO R3 

28 010722 01 MOV (SP) +.R2 ::POP STACK INTO R2 

29 010724 Ui MOV (SP) ¢_R1 [:POP STACK INTO R1 

0 010726 1 MOV (SP) +.RO ::POP STACK INTO RO 

31 010730 00 RTS PC 


CZRILAO RPO7T FC 
GLOBAL SUBROUT 


H 4 
TNL TEST MACRO V04.00 1-JAN-85 11:06:45 PAGE 19 Q 
INES SECT : estat 


1 ZAUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF iT IS JUMPERED FOR 22 OR 
¢ i 32 REGISTERS 

$ 3 JSR PC,S1ZE70 CALL ROUTINE 

g [RS MUST CONTAIN POINTER TO NEW RPCS1 BASE ADDRESS 

9 010732 005037 00265 SIZE70: CLR RHEXT ZCLEAR RPBAE OFFSET 

10 O1786 098087 itt CLR RHTYPE [CLEAR RHXX TYPE REGISTER (RH11) 

11 010742 O13 46 000004 MOV ERRVEC,-(SP) ‘SAVE CONTENTS OF ERROR VECTOR 

i 010746 012737 011016 000004 MOV #2$, ERRVEC [SETUP ‘TRAP’ RETURN ADDRESS 

1 010756 11500 MOV (R55,R0 [GET RPCS1 ADDRESS 

14 0107 $ 000050 ADD #50,R0 'GET REGISTER OFFSET FOR RH70 

15 010762 0127 2 000012 MOV #10. ,R2 'GET NUMBER OF REGISTERS TO CHECK 

16 010766 0057 1ST (RO) STRAP IF NOT A VALID RPBA 

17 010770 0057 9 1ST (RO) STRAP IF NOT A VALID RPCS 

18 010772 O12? 000050 002650 MOV #50,RHEXT SLOAD OFFSET FOR RPBAE (22 REGISTER RH) 
19 011000 005720 1$: 1ST (RO)+ STRAP IF NOT A VALID REGISTER 

20 011002 905302 DEC R2 [DONE WITH ALL 32 REGISTERS ? 

@1 011004 00137 aNE 1$ ‘BR IF NO 

Q 011006 012737 000074 002650 MOV #76,RHEXT SLOAD OFFSET FOR RPBAE (32 REGISTER RH) 
23 011014 000403 BR 

24 011016 012716 011024 28: MOV #3$, (SP) :SETUP RETURN ADDRESS 

39 011022 000002 RTI 
27 011024 011500 3$: MOV (R5),RO sGET RPCS1 REGISTER 

28 011026 013702 002650 MOV RHEKT,R2 [GET RPBAE REGISTER OFFSET 

<9 011032 00141 BEQ 4$ [BR IF NONE 

0 011034 060002 ADD RO,R2 [GET RPBAE REGISTER 

31 011036 052710 001400 BIS #A17'A16,(RO) SET EXTENDED ADDRESS BITS IN RPCS1 

32 011042 022712 000003 CMP #3, (R2) sARE THE EXTENDED BITS SET IN RPBAE ? 
33 011046 001007 BNE 4$ [BR IF NO 

011050 005012 CLR (R2) [CLEAR EXTENDED ADDRESS BITS IN RPBAE 

35 011052 011046 MOV (RO), -(SP) SSAVE RPCS1 REG CONTENTS 

6 011056 042726 176377 BIC #*(<A17!A16>, (SP) SARE THE EXTEND BITS CLEAR IN RPCS1 ? 
37 011060 00100 BNE 4$ ;BR IF NO 

38 011062 005237 002652 INC RHTYPE sSET RHXX TYPE REGISTER (RH70) 

39 011066 012637 000004 4$: MOV (SP) +, ERRVEC TRESTORE CONTENTS CF ERROR VECTOR 

40 011072 000207 RTS PC 


an 


CZRJLAO RPO7 FCTNL TEST MACRO VO04.00 1-JAN-83 11:06:45 PAGE 20 SEQ 0047 
GLOBAL SUBROUTINES set 10N 
1 3 INTEGER DIVIDE ROUTING 
4 s*THIS ROUTINE wile DIVIDE A 32-BIT TWO°S COMPLEMENT INTEGER 
s*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 
4 *A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 15-BIT REMAINDER. 
5 s*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 
$ Start SIGN AS THE DIVIDEND. 
8 3° MOV LOW DIVIDEND,-(SP) 77 THE HIGH DIVIDEND MUST BE < 1/2 
9 38 MOV HIGH DIVIDEND,-(SP) z AS LARGE AS THE DIVISOR 
10 3° MOV DIVISOR,-(SP) 
11 3° JSR PC,$DlVv 
4 3° RETURN s;QUOTIENT & REMAINDER ARE ON THE STACK 
1 3° "v"'=Q IMPLIES NO ERROR 
16 7° “v"'=1 IMPLIES ERROR OCCURRED 
15 3° "C''s0 = DIVIDE OVERFLOW OCCURRED 
16 :* "C''s1 ATTEMPTED TO DIVIDE BY ZERO 
18 : ° 
0 3* STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
. + eeeceo ne ee eer = oe eee me eS eS Sw oe oe 
21 ze TOP REMAINDER ALL ZEROS ALL ONES 
$8 3* +2 QUOTIENT ALL ZEROS ALL ONES 
24 
25 011074 005046 $Dlv: CiR -(SP)  s;CLEAR DIV STATUS JORD: RESERVED TO SET ¢ AND v BITS 
26 011076 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
27 011100 010146 MOV R1,-(SP) PUSH R1 ON STACK 
28 011102 010246 MOV R2,-(SP) PUSH R2 ON STACK 
29 011106 010346 MOV R3,-(SP) 3:PUSH R3 ON STACK 
$0 011106 005046 CLR -(SP) ::SAVE A PLACE FOR SIGNS 
31 011110 012746 000021 MOV #17.,,-(SP) s:SETUP THE ITERATION COUNTER 
32 011114 016601 000024 MOV 24(SP),R1 ::PICKUP THE DIVIDEND 
33 011120 016600 000022 MOV 22(SP),R0 
34 011124 100005 BPL 1$ CHECK THE SIGN 
35 011126 105366 000003 DECB 3(SP) 7IKEEP TRACK OF THE SIGN 
36 011132 005400 NEG RO s;AND NEGATE THE ORIGINAL 
37 011134 005401 NEG R1 7 ;NUMBER 
38 011136 005600 SBC RO 
39 011140 016602 000020 1$: MOV 20(SP) ,R2 s;PICKUP THE DIVISOR 
40 011144 002407 BLT 4 s:CHECK THE SIGN 
41 011146 003011 BGT $ z:DIVISOR OF 0 IS A NO-NO 
¢ 011150 052766 000003 000014 BIS #3,14(SP) SET “'V'' & 'C’’ IN DIV STAT WORD 
43 011156 012700 177777 MOV #-1,R0 ::SET REMAINDER TO ALL ONES 
44 911162 000424 by 7 seEXIT 
45 011164 005266 000002 2%: INC 2(SP) ssKEEP TRACK OF DIVISORS SIGN 
46 011170 000401 BR 4% 
47 011172 005402 3$: NEG R2 ssNEGATE THE ORIGINAL NUMBER 
48 011174 000241 4$: CLC :;CLEAR IN PSW 
49 011176 000405 she 6$ s:START FORMING QUOTIENT 
50 011200 006100 5$: ROL RO POSITION MSB'S 
51 011202 010003 MOV RO,R3 3;COPY 
52 011204 960203 ADD R2,R3 s: COMPARE DIVIDEND & DIVISOR 
53 011206 103001 BCC o$ 7:BR IF DIVIDEND > DIVISOR 
54 011210 010300 MOV R3,R0 s REMAINDER AFTER THIS LOOP 
55 011212 006101 6$: ROL R1 : QUOTIENT BIT ENTERS HERE 
56 011214 005316 DEC (SP) + DONE? 
57 011216 001370 BNE 5$ ::BR IF NO 
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R1 
8$ 
#2,14(SP) 


RO,R1 
($P)+ 


ee ee ee ee eed? el 
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(SP)+, (SP) 
PC 


7 OVERFLOW? 
;3BR IF NO 
77SET “’v’’ IN DIV STATUS WORD 
37SET REMAINDER TO ALL ZER 
7:COPY REMAINDER INTO QUOTIENT 
7: CLEAR COUNTER FROM STACK 
sZ;REMAINDER SIGN CORRECTION NEEDED? 
378R IF NO 
s NEGATE REMAINDER 
3:CLEAR SIGN 

BuT T 


3 DON'T FORGET QUOT] 
33 BOT RENT SIGN CORRECTI 


TINEGATE QUOTIENT 
TSRETURN QUOTIENT AND 
SIREMAINDER TO USER 


EN 
ON NEEDED? 


0 RO 
7;COPY C IN PSW PER C IN DIV STAT WORD 
3;CLEAR V IN PSW 

::V=0 IN DIv STAT WORD, EXIT 

::V=1_ IN DIv STAT WORD, COPY V IN PSw 

szMOVE RETURN ADR UP ONE PLACE, OVERRIDING DIVISOR 
s RETURN WITH SP POINTING TO REMAINDER 


am 
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GLOBAL SUBROUTINES SECTION 


} ; INTEGER MULTIPLY ROUTINE 

5 > *CALL 

4 ted MOV MULTIPLER,=(SP) 

5 :* MOV MULTIPLICAND, =(SP) 

6 hd JSR C,SMuULT 

4 3° RETURN 3sPRODUCT IS ON THE STACK 

-@ 

9 3° STACK PRODUCT 

10 4 © aoe ow awe nm aw 

11 3° TOP LSB°S 

i 7* +2 MSB°S 
14 O11 eI8 010046 SMULT: MOV RO,=(SP) HAY + RO ON STACK 

15 011320 010146 MOV R1,-(SP) 33PUSH R1 ON STACK 

16 O11 85¢ 010246 MOV R2,-(SP) 33PUSH R2 ON STACK 

17 011324 005046 CLR =(SP) 3;CLEAR THE SIGN KEY 

18 811368 016601 000012 MOV 12(SP) ,R1 23GET ay MULTIPLICAND 

19 atte 2 100002 BPL 1$ 22BR PLUS 
20 011334 005216 INC (SP) 33SET 1H KEY 
21 011336 005401 NEG R1 73MAKE THE hoe bee POSTIVE 
$6 AE a 016602 000014 1$: MOV 14(SP) ,R2 3:GET THE MULTIPL 

25 011344 100002 BPL 2$ 3;8R IF PLUS 
24 011346 005316 DEC (SP) ssuepare THE SIGN KEY 
25 011350 005402 NEG R2 MAKE THE pre POSTIVE 
26 011352 012746 000021 2$: MOV #17. ,-(SP) 7:SET THE LOOP COUNT 
27 011356 005000 CLR RO 33 SETUP FOR THE MULTIPLY LOOP 
28 011360 103001 3$: BCC 4$ 7:DON'T ADD IF MULTIPLICAND = 0 
$3 011362 060200 ADD R2,RO 

0 011364 006000 4$: ROR RO 3zPOSITION THE al ate PRODUCT AND 
H 011366 006001 ROR R1 oie MULTIPLICAND 

2 011370 005316 DEC (SP) HAS ALL BITS OF THE MULTIPLICAND BEEN DONE? 
33 011372 001372 BNE 3$ 7:BR IF NO 
34 011374 022616 CMP (SP)¢, (SP) : ESHOULD ey BE NEGATIVE? 
35 011376 001405 BEQ 5$ 3;G0 TO EXIT IF NO 
36 011400 005400 NEG RO 32YES--SO MAKE IT SO 

$7 011402 005401 NEG R1 
38 011404 005600 SBC RO 
39 011406 005726 5$: TST (SP)+ ht SIGN INFO. OFF OF STACK 
40 011410 010 000012 MOV RO. 12(SP) z3P T THE PRODUCT ON THE STACK (MSB‘S) 
41 011414 610166 000010 MOV au 10(SP) ts *S 
42 011420 012602 MOV (SP) +,R2 7:POP STACK INTO R2 
43011422 012601 MOV (SP)+.R1 3;POP STACK INTO R1 
44 911424 012600 MOV (SP)+,RO 33;POP STACK INTO RO 
45 011426 000207 RTS PC 


La 
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GLOBAL SUBROUTINES SECTION 


1 
§ sOCTAL TO HEXADECIMAL CONVERSION ROUTINE 
4 0114 10146 OCTHEX: MOV R1,<(SP) TSAVE R1 
5 Or G32 19246 ' MOV R2,-(SP) :SAVE R2 
6 0114 1270 011564 MOV #PSTACK,RO :SET UP THE BUFFER ADDRESS 
011440 012702 000004 MOV #4 ,R2 [GET THE ITERATION VALUES 
B 011444 oi 701 000004 1$: MOV #4°R1 ZAND DUPLICATE FOR TWO LOOPS 
9 911490 0 919 CLR (rb) SINITIALIZE THE BUFFER 
10 011452 00631 28: ASL (RO) :MOVE THE PREVIOUS BIT(S) OVER 
11 011454 900861 CLC [CARRY = 0 
12 011456 906 66 000006 ASL 6(SP) [ROTATE A BIT FROM THE TEST VALUE 
13 011462 103902 BCC SIF ZERO, SKIP NEXT INSTRUCTION 
14 011464 052710 000001 BIS #B1TO, (RO) SMARK THE BIT AS BEING SET 
15 011470 005301 3$: DEC R1 TONE LESS ITERATION TO GO 
16 011472 003367 BGT 2$ ‘BUT NOT DONE UNTIL = 0! 
17 011474 005720 TST (RO) + [NEXT BUFFER LOCATIO 
18 011476 005302 DEC R2 ZONE LESS ITERATION TO-GO 
19 011500 003361 BGT 1$ :1F NOT ZERO, KEEP GOING! 
20 011502 012702 000004 MOV #4 ,R2 [GET THE NEW ITERATION COUNT 
21 011506 012700 011564 MOV #PSTACK,RO SAND GET THE BUFFER ADDRESS AGAIN 
32 011512 005710 4$: TST (RO) :CONTENTS ZERO? 
23 011514 003005 BGT 5% ‘IF NOT, SKIP NEXT 
24 011516 912720 000060 MOV #60, (RO)+ [SET THIS CHARACTER = NULL 
25 011522 00530 DEC R2 [ONE LESS CHARACTER TO GO 
26 011524 00337 BGT 4$ SIF NOT ZERO, KEEP GOING 
37 011326 00041 BR ag :DONE, RETURN! 
8 011530 02102 000011 5$: CMP (RO) ,#11 zALPHA OR NUMERIC CHARACTER? 
29 011534 101003 BHI [IF > 11, ALPHA! 
30 011536 062720 000060 ADD #60, (RO) [MAKE NUMERIC ASCII 
31 011542 000402 BR [AND GO-ON 
32 011544 062720 000067 6$: ADD #55.,(RO)+ [MAKE HEX ASCII 
33 011550 005302 7$: DEC R2 ZONE LESS ITERATION TO-GO 
34 011552 003366 BGT 5$ [ONE LESS ITERATION, IF NOT ZERO 
35 011554 012602 8$: MOV (SP)+,R2 SRESTORE Re 
36 011556 012601 MOV (SP)+,R1 SAND R 
37 011560 012616 MOV (SP)+, (SP) sMOVE STACK OVER INPUT VALUE 
38 011562 000207 RTS PC SAND RETURN 
40 011564 PSTACK: .BLKW 10. ;SOTWARE PSEUDO STACK 


Mm 4 
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GLOBAL SUBROUTINES SECTION 


1 
¢ :SUBR TO GENERATE A PSEUDO RANDOM NUMBER 
: THE * WURBEE 1S RETURNED IN $RP1 

4 [THERE ARE 3 SEED VALUES THAT CAN nen SAVED 
5 :T0 GENERATE THE PSEUDO RANDOM NUMB 

$ 011610 019046 RAND: MOV RO,-(SP) sSAVE RO 

8 011612 013700 011672 MOV $RP1,RO :GET A SEED 

9 011616 600941 CLC 3 

10 911620 005337 011670 DEC SRNCON ; 

11 011624 006100 ROL RO 

1 0116¢6 906100 ROL RO 

13 011630 063700 011670 ADD SRNCON,RO 

14 011636 965700 011674 ADD $RP2,RO 

15 011640 010037 011672 MOV RO, SRP1 

16 011646 006100 ROL RO 

17 011646 006100 ROL RO 

18 011650 063700 011674 ADD $RP2,RO 

19 011654 006100 ROL RO 
20 011656 006100 ROL RO 
21 011660 010037 011674 MOV RO, $RP2 
22 011664 012600 MO (SP)+,RO ZRESTORE RO 
33 011666 000207 RTS PC 
25 011670 000000 SRNCON: 0 
26 011672 001233 $RP1: 1233 
27 011674 007622 $RP2: 7622 


Nn 4 
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GLOBAL SUBROUTINES SECTION 
1 
¢ ;DETERMINE IF THERE Is. A CLOCK ON SYSTEM, START THE CLOCK. “CLKSTA™ WILL 
SINDICATE THE CLOCK 
& g 9 NO ante 
3 : he Grid 
$ THIS ROUTINE wit ALSO SETUP “‘TICKMS'’ (TIMC PER CLOCK TICK IN mit L ISECONDS) 
8 AND “TI CKUS (TIME PER CL otk TICK IN MICROSECONDS) AS PER LINE FREQUENC 
10 ; J PC,ST.CLK sSTART THE CLOCK 
1 : RETURN 
ig 011676 005937 002250 ST.CLK: CLR CLKSTA yASSUME “'NO CLOCK” 
14 011702 005037 012142 CLR HERTZ SASSUME “UNKNOW 12 
15 715 THERE A Po CLOCK PRESENT ? 
16 011706 012700 000120 MOV #°P,RO 
011712 104462 TRAP —s-_ CSCLCK 
011714 010005 MOV RO,RS 
17 :G0 TO 1$ IF NO 
18 011716 103031 BCC 1$ 
3 SET P-CLock P-TABLE & START P-CLOCK 
22 011720 010537 012116 MOV RS,PCLKTB i SAVE P=CLOCK TABLE ADDRESS 
33 011724 011537 012120 MOV (RS), PKCS ?GET *CSR® ADDRESS 
4 011730 011537 Oi2t22 MOV (R5) (PKB [MAKE PKB ADDRESS BY 
25 011734 962737 000002 012122 ADD #2,PKB S ADDING 
26 011742 012537 012124 MOV (R5) +, PKC [MAKE PKC ADDRESS BY 
27 011746 062737 000004 012124 ADD #4 PKC SADDING 4 
28 011754 005725 TST (R5)+ [SKIP OVER ‘BR LEVEL* 
¢9 011756 012537 012126 MOV (R5)+,PKV ‘GET "VECTOR® ADDRESS 
0 011762 012537 012142 MOV (R5)+, HERTZ 3GET ‘HERTZ ee FREQUENCY 
31 011766 012737 000001 002250 MOV #1,CLKSTA [SET P=CLOCK FLAG 
32 011776 004737 012144 JSR PC‘ST.PCLK START seer ocKe AS A WATCH DOG TIMER 
33 012000 000423 BR 2$ 
34 012002 1$: s1S THERE A L-CLOCK PRESENT ? 
35 012002 012700 000114 MO #*L,RO 
912006 104462 TRAP = C$CLCK 
012010 010005 MOV RO, 
36 :G0 TO 3$ IF NO 
37 012012 103036 BCC 3$ 
+4 SET L=CLOCK P-TABLE, START L-CLOCK 
41 012014 010537 012132 MOV R5,LCLKTB SAVE L=CLOCk TABLE ADDRESS 
42 012020 012537 012134 MOV (RS) + .LKS ‘GET "CSR ADDRESS 
43 012024 005725 TST ‘SKIP OVER BR REVEL 
44 012026 012537 012136 MOV (Rode LEV GET *VECTOR® ADDRESS 
45 012032 012537 012142 MOV (R5)+, HERTZ 3GET "HERTZ" LINE FREQUENCY 
46 012036 012737 177777 002250 MOV #-1,CLKSTA “L=CLOCK FLAG 
4? 012044 004737 012716 JSR PC,ST.LCLK SETART L=CLOCK AS A WATCH DOG TIMER 
rH 3GET THE CLOCK TICK COUNT 
$1 012050 012737 000024 012112 2$: MOV #20 TICKMS ZASSUME 20.0 MSEC & 
52 012056 012737 047040 012114 MOV oddo, gh iCkus :20000.0 USEC 
53 012064 023727 012142 000062 CMP HERTZ, #50, t1S 11 50 HERTZ LINE FREQUENCY ? 
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TION 


eoese 018116 


000106 


000102 


177654 


3$: 


TICKMS: 
TICKUS: 


sKWw1l]-P 
PCLKTB: 


sKWITeL 
LCLKTB: 


LKS: 
LKV: 


HERTZ: 
ST.PCLK: 


ST.LCLK: 


1$: 


CLOCK 
«WORD 


- WORD 
- WORD 


WORD 


JSR 


38 
#16, TICKS 


16, 
16666. 


0 
118849 
104,106 


0 


177546 
100,102 


0 
STOFLG 
1$ 


#PR106,-(SP 
Pp 


a 

n 

= 
” 
Zz 
< 
7 

$ 

~ 
nw 
~~ 


#10,SP 
#1,aPKB 
#115, aPKCS 
PC 


STOFLG 
1$ 


PC,STOPCK 


012566. ,TICKUS 
PC 


SEQ 0053 
:BR If YES 
sMUST BE 60HZ, 16.666 MSEC & 
:16666.0 USEC 


316 MILLISECONDS PER CLOCK TICK 
316666 MICROSECONDS PER CLOCK TICK 


TABLE, CSR REG, PKB REG, PKC REG & VEC ADR 


3P-CLK TBL ADR 


sSONTROL & STATUS 
«COUNT SET BFR 
; COUNTER 


;VECTOR 


TABLE, CSR REG & VEC ADR 


sL-CLK TBL ADR 
sCONTROL & STATUS 
; VECTOR 


360 HZ. OR 50 HZ. LINE FREQUENCY 


ALLOW SOFTWARE TIMECUTS ? 
;NO--BRANCH 
;SETUP VECTOR FOR P-CLOCK 


COUNT ONE TICK mr 3 
:INT.EN.''.COUNT DOWN’, “MODE 1 (REPEAT)"*, 
Z“LINE FREQ", AND ‘'RUN™ 

;RETURN 


; ALLOW SOFTWARE TIMEOUTS ? 
‘SETUP VECTOR FOR L=CLOCK 


sSTART THE KWIl-L 
;RETURN 


meee ROUTINE IS USED TO STOP THE SYSTEM CLOCK 


CALL ROUTINE 


en 


en 
Se 
>r 


‘s 
DD 
3 


9 


CoOooCocooo 


honofnofrennnr) 3 ee COO 
OnFwn OF ARAHOSRURA ROO 


Ores 

0123352 
012336 
012342 
012346 
012352 
012356 
012360 

127 012364 

128 012372 

19? 012400 

131 Oise ts 

132 012410 

133 012414 
012414 

134 012416 

135 012416 
012422 
012424 
012430 
012434 
012436 

136 012442 

137 912446 

141 

145 

146 

147 

148 

149 

150 

151 

152 012450 

153 012456 

154 

155 012462 
012466 


oooo-ococoo oo 
Owe — 


om 


002250 


000101 
000100 


000 
012 


000300 


012126 
000003 


000010 
177454 
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177620 
177624 


177566 


177530 
177520 


177510 


177442 


¢ § 
SEQ 0054 Ci 


STOPCK: TST ~— 71S THERE A CLOCK AVAILABLE ? 
BEO BR IF NO 
BM] $ BR IF L-CLOCK 
Ba #101,aPKCS sSTOP THE P-CLOCK 

1$: BIC #100,aLKS sSTOP THE L=CLOCK 

23: RTS PC 

7KW11 CLOCK INTERRUPT SERVICE ROUTINE 

KWSRV: MOV TICKMS,-(SP) sTIME PER TICK IN MILLISECONDS 
JSR PC, RPTMR sCOUNT THE ELASPED TIME 

L10006: ati 


THIS SUBROUTINE IS USED TO RELOAD THE C(LCSK FOR A 4 SECOND TIMEOUT DURING 
3A RECALIBRATE COMMAND 


FORSEC: BIC #101 ,aPKCS 
MOV aPKV,-(SP) 


MOV #PR106,-(SP) 
MOV #1$,-(SP) 


STOP CLOCK 
SAVE THE OLD C 
;SETUP VECTOR F 


LOCK VECTOR ADDRESS 
OR P-CLOCK 


MOV 3,=(SP) 
TRAP (C$SVEC 
ADD #10,SP 
MOV #246. ,aPKB :4 SEC DELAY AT LINE FREQ 
MOV #105, aPKCS [RUN AT LINE FREQ, DOWN MODE, IE=1 
WAIT [WAIT FOR CLK INTER 
1$: BIC #101, aPKCS :STOP CLOCK 
MOV #2$, (SP) SADJUST FOR RETURN 
L10007: are 
2$: SRESTORE OL: VECTOR ADDRESS FOR P=CLOCK 


MOV #PR106,-(SP) 


ADD 10, 

CLR aPKB sCLEAR CLK BFR COUNT 

RTS PC 
sROUTINE TO PROVIDE A 2 MS STALL AFTER A SEEK OPERATION IN THE SEEK TIMING 
STESTS. THIS STALL IS REQUIRED TO COMPENSATE FOR THE ‘ACCESS READY® DELAY 
TIN THE RPO7. THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES. 
: JSR PC, TWOMS 
; RE TURN 
TWOMS : #101, aPKCS :STOP THE P-CLOCK 


BIC 
MOV aPKV,-(SP) 


MOV #PRI06,-(SP) 
MOV #2$,-(SP) 


SAVE THE OLD CLOCK VECTOR ADDRESS 
;SETUP VECTOR FOR P-CLOCK 


an 
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GLOBAL SUBROUTINES SECTION 
012472 746 012126 MOV PKV,<(SP) 
Qi 476 746 0000 MOV #3,-(SP) 
1250 43 TRAP = C$SVEC 

012504 706 900010 ADD 10,SP 
156 012510 0127 009 10 177404 MOV #200. ,aPKB SLOAD THE CLOCK BUFFER 
157 01 238 105737 02230 TSTB TIMSTL ;RANDOM STALL? 
158 012522 0 $19 BEQ 1$ N 
159 01 2¢ 004737 011610 JSR PC, RAND SYES, FETCH A RANDOM NUMBER 
160 012530 013746 011672 MOV $RP1,-(SP) [GET RANDOM NUMBER 
161 012534 04 718 173000 BIC #*(4777, (SP) [LIMIT IT TO 25 MSEC 
leg 712540 062677 177356 ADD (SP)+,aPKB SADD IT TO THE BASIC 2 MSEC STALL 
163 012544 012777 000101 177346 1$: MOV #101, aPKCS [START THE CLOCK 
164 012552 000901 WAIT :WAIT FOR 2 MS 
166 012554 042777 000101 177336 2%: BIC #101, aPKCS [STOP THE P-CLOCK 
167 012562 012716 012570 MOV #3$, (SP) sADJUST FOR RETURN 
168 012566 L10010: 

012566 000002 RTI 
169 012570 3¢: sRESTORE OLD VECTOR ADDRESS FOR P-CLOCK 
170 012570 012746 000300 MOV #PR106,-(SP) 

012574 012646 MOV (SP)+,-(SP) 

012576 013746 012126 MOV PKV,<(SP) 

012602 012746 000003 MOV #3,-(SP) 

012606 104437 TRAP = C$SVEC 

012610 062706 000010 ADD #10,SP 
171 012614 005077 177302 CLR aPxB zSET COUNT = 0 
72 012620 000207 RTS PC RETURN 
177 :THIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
178 : INTO DPB.B+2 AND DPB.C+2, DEPENDING ON THE STATE OF REDHDR FLAG 
44 tyr CAN BE ALTERED BY THE OPERATOR. 

3 L 

181 : JSR PC,LDCMD 
182 : RETURN 
183 
184 012622 LDCMD: 
185 012622 105737 002226 TSTB REDHDR 3D0 EXPLICIT SEEKS FOR VERIFYING ? 
186 012626 001407 BEQ 1$ ‘NO=-BRANCH 
187 012630 0O 7 000173 002562 MOV #RDHD ,DPB.B+2 sNO--SET UP FOR READ HEADER AND 
188 012636 012737 000173 002602 MOV #RDHD,DPB.C+2 DATA COMMAND 
189 012644 000406 BR $ 
190 012646 O 7 000105 002562 1$ MOV #SEEK,DPB.B+2 ;SETUP FOR SEEK COMMAND 
191 012654 0O 7 0001065 002602 MOV #SEEK,DPB.C+2 
192 012662 000207 2$: RTS PC 


CZRIL 
GLOBAL 


AO sahoy AA TEST 


MEW —OOODNOUE WN 


st 


012664 
012664 
012666 
012670 
012672 
16 012674 
17 012700 
18 Oise 
19 012706 
20 012714 
21 HE tE 33 
$8 012730 
Hie 
24 012740 
25 012744 
26 012752 
27 012754 
012756 
012760 
012762 
28 012764 
29 
30 012770 
31 012776 
32 013000 
013002 
013004 
013006 
Hi 013010 
35 013014 
36 013022 
37 013024 
38 013032 
39 013034 
013036 
013040 
013042 
re 013044 
42 013050 
43 013056 
44 013060 


OUTINES SECT 


WONWWWOOWL ES 
NNN MQ NOOO OD 


000137 
032762 


007604 
000137 


032762 


000157 


032762 
001406 
104456 
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002254 
000014 


000002 


014206 
020000 


014042 
020400 


014052 
017000 
040000 


014052 
040000 


000010 


000010 
000012 


000010 


1$: 


2$: 


3$: 


4%: 


ERROR ANALYSIS ROUTINE 
NOT USED 


DPB ADDRESS 

BASE ADDRESS OF SAVED REGS TABLE 
TEMP STORAGE 
LINK AND RET 


—— SEQ: 


R5,ERRANY 


Pn-ne-m 


> —~mrowzwwzw~--t t 
o ~ we wr) 


JU 


e 


#MPE SUPE ,10(R2) 


CSERHRD 
2 


EM2 
DH44 


CSERHRD 


#WCE,10(R2) 


CSERHRD 


CPE OtR2) 


+ pehamapittecttaae * ian 
WERR,12(R2) 


SEQ 0056 


3;PUSH R1 ON STACK 
tty R2 ON STACK 


: PROGRAM FLAGS: ‘EACH BIT INDICATES ERROR TYPE 
ZADDRESS OF ot REGISTER TABLE 

3GET CURRENT CYLINDER 

GET CURRENT SECTOR 

7GET CURRENT TRACK 

IF DATA TFR CMD 

; THEN eens DECREMENTED SECTOR ADDRESS 


:MCPE 
;BRANCH IF NOT 


EXIT 


;PARITY PROBLEM ? 
;BRANCH IF NONE 


sEXIT 
ILLEGAL CONDITIONS ? 


pm 
3 AN v “ORI ve ERROR ? 
:REPORT THE DRIVE ERROR 


EXIT 


ANY DATA PATTERN ERROR ? 


;BRANCH IF NONE 


aon 


fe 
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GLOBAL SUBROUTINES SECTION GE 25 SEQ 005 


013062 800 04 «WORD 4 
013064 005516 -WORD EMG 
013066 ides «WORD H4G 
a 015070 000137 014052 JMP 2$ sEXIT 
47 013074 032762 100000 000010 5$: BIT #OLT,10(R2) sANY DATA LATE ERROR ? 
48 013102 001406 BEQ 6$ ;BRANCH IF NONE 
49 013104 104456 TRAP — 
013106 000005 «WORD 
013110 005540 -WORD EMS 
013112 007604 WORD DH44 
29 0135114 000137 014052 JMP 32% sEXIT 
52 013120 032762 040000 000012 6$: BIT #ERR,12(R2) sANY DRIVE ERROR ? 
3 01 168 OO t006 BNE 7$ BRANCH IF ANY 
é¢ 0131350 0001 014174 JMP 43% sEXIT 
56 013134 032762 100000 000040 7$: BIT #PGE ,40(R2) ;DRIVE PROGRAMMING ERROR ? 
57 013142 001406 BEQ 8$ ;BRANCH IF NONE 
58 013144 104456 TRAP CSERHRD 
013146 000006 «WORD 6 
013150 005560 -WORD EM6 
ots 3¢ 007604 -WORD DH44 
+4 013154 000137 014062 JMP 33$ sEXIT 
61 013160 032762 002000 000042 8$: BIT #LBC .42(R2) s;LOST BIT CLOCK ? 
62 013166 001406 BEQ 9$ ;BRANCH IF NONE 
65 013170 104456 TRAP CSERHRD 
013172 000007 «WORD 7 
013174 005616 WORD EM? 
013176 007604 WORD DH44 
+3 013200 000137 014072 JMP 34% sEXIT 
66 013204 032762 000040 000014 9$: BIT #WCF,14(R2) sWRITE CLOCK FAILS ? 
67 013212 001406 BEQ 10$ ;BRANCH IF NONE 
68 013214 104456 TRAP CSERHRD 
013216 000013 -WORD 11 
013220 005644 WORD €EM11 
013222 007604 «WORD DH44 
+4 013224 000137 014072 JMP 34% sEXIT 
71 013230 032762 004000 000014 10$: BIT MWLE,14(R2) WRITE LOCK ERROR ? 
72 013236 001406 BEQ 11$ ;BRANCH IF NONE 
73 pt ase9 104456 TRAP CSERHRD 
013242 000014 WORD 12 
013244 005666 -WORD EMI2 
013246 007604 WORD DH44 
me 013250 000137 014072 JMP 34% sEXIT 
76 013254 032762 010000 000014 11$: BIT #DTE,14(R2) ;DATA ERROR ON DRIVE ? 
77 013262 001042 BNE REPORT THE DRIVE TIMING ERROR 
78 013264 032762 100000 000014 BIT #DCK,14(R2) sANY DATA ERROR ? 
79 013272 001444 BEQ 7$ s;BRANCH IF NONE 
80 013274 032762 000100 000014 BIT #ECH,14(R2) sECH SET, THEN RPEC1=10040 
81 013302 001412 BEQ sEXIT IF NOT SET 
82 0133046 022762 010040 000044 12$: CMP #10040,44(R2)  ;POSITION REG=10040 
83 013312 00101¢ BNE 14% sREPORT ECC LOGIC FAILURE 
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CZRJLAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 25-2 SEQ 0058 
GLOBAL SUBROUTINES sf eT 10N 
B84 013314 104465 TRAP CSERHRD 
ei 36 00 037 eWORD f§ 
1 3 07216 .WORD EM47 
1 foo WORD H4G 
#4 1 4 137 014072 JMP 4% EXIT 
87 01 0 92¢76e 010040 000044 13%: CMP #10040,44(R2) sLEGICAL POSITION REG CONTENTS ? 
88 Bt 61006 BHI 15$ sBRANCH IF SO 
89 01 14$: 
01 10445 TRAP CSERHRD 
01 $708? eWORD 43 
013344 oo! » WORD EM43 
013346 007604 WORD H44 
39 013350 000137 014072 JMP 4$ EXIT 
92 013354 15$: 
013354 104456 TRAP CSERHRD 
013356 000015 eWORD 13 
Oi gees 005707 eWORD €EM13 
013362 007604 -WORD DH44 
33 013364 000137 014072 JMP 34% EMIT 
95 013370 16$: 
013370 104456 TRAP CSERHRD 
013372 000055 «WORD 45 
013374 007135 -WORD €EM45 
013376 007604 -WORD DH44 
36 013400 000137 014072 JMP 34% sEXIT 
98 013404 032762 000010 000042 17%: BIT #DPE ,42(R2) DRIVE DATA BUS PARITY ? 
99 013412 001406 BEQ 1 ;BRANCH IF NONE 
100 013414 104456 TRAP CSERHRD 
013416 000016 «WORD 14 
013420 005730 -WORD €EM14 
013422 007604 ~WORD DH44 
+ 4 013424 000137 014072 JMP 34% sExIT 
103 013430 032762 000007 000014 18$: BIT MILF‘ ILRI RMR, 14(R2) s INTERFACE PROBLEM ? 
104 013436 001406 BEQ 19$ ;BRANCH IF NONE 
105 013440 104456 TRAP CSERHRD 
OI sebe 000017 -WORD 15 
013444 005765 -WORD EMIS 
013446 007604 » WORD DH44 
106 013450 000137 014102 JMP 35$ EXIT 
108 013454 032762 003000 000014 19%: BIT #IAE'AOE,14(R2) ;POSITION ERROR 
109 013462 001406 BEQ 208 ;BRANCH IF NONE 
110 013464 104456 TRAP CSERHRD 
013466 000020 -WORD 16 
013470 006032 -WORD €EM16 
013472 007604 . WORD H44 
AY. 013474 000137 014112 JMP 6$ sEXIT 
113 013500 032762 020000 000014 20$: BIT #OP1,14(R2) sOPERATION INCOMPLETE ? 
114 013506 001406 BEQ 21% ;BRANCH IF SO 
115 013510 104456 TRAP CSERHRD 
013512 000051 -WORD 41 


CZRJLAO RPO7 FC 
GLOBAL SUBROUTI 
135146 
1 38 
116 1352 
11 
118 01 ; 4 
119 013552 
120 01355 
0135 
01354 
3 542 
121 0155464 
158 013550 
124 013556 
125 013560 
013562 
013564 
0135 
126 01357 
127 
128 013574 
129 013600 
130 013604 
131 013610 
132 013612 
013614 
013616 
015059 
133 013622 
134 
135 013626 
136 013634 
137 013636 
013640 
013642 
013644 
138 013646 
139 
140 013652 
141 013660 
16g 013662 
14 HE th 
144 013672 
913674 
013676 
013700 
145 013702 
146 
147 013706 
Ota 708 
01371 
013712 
013714 
148 013716 
149 
150 013722 
151 013730 
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000137 
032762 


000137 


104456 


000137 


032762 
001406 


014112 


041000 000042 21%: 


014112 
000002 


014122 
000014 


177057 
000720 


014132 
000920 


014132 
000600 
000400 


014132 


014132 


017400 000040 


009012 


000014 


000014 
000014 


228: 


238: 


248: 


25$: 


26%: 


278: 


#EWN,12(R2) 


sExit 


BRANCH IF NONE 


PROBLEM ? 
BRANCH IF SO 


;CHECK IF HEAD MISSING 


sSERVO OR ACTUATOR SEEK ERROR ? 


7CHOP THE REST BITS 
sMISSING HEAD ? 


sHEADER INFORMATION ERROR ? 


ERROR ? 


CSERHRD 

21 

—M21 

H44 

7$ EXIT 
14(R2),R3 
@*C<FER'ECH'HCRC'HCE>,RS 
MFER'ECH'HCRC!HCE,R3 

4$ ;BRANCH IF NOT 
Ssenune 

EM22 ' 

DH44 

38% EMIT 
#FER,14(R2) sFORMAT ERROR ? 
25% ;BRANCH IF NOT 
CSERHRD 

23 
EM23 
DH44 

38$ sEXIT 
MHCRC!HCE,14(R2) 

7 sBRANCH IF NONE 
#HCRC,14(R2) sHEADER CRC 

6$ sBRACH IF SO 
CSERHRD 

24 
EM24 

DH44 

38s sEXIT 

imma 
EM46 

H44 

8% sExIT 


#URYUNS !WOR!RWUT!RWU2!RWUS,40(R2) 
288 ;BRANCH IF NONE 


WRITE AND READ UNSAFE ? 


SEQ 0059 


CZRJLAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 25-4 SEQ 0060 
GLOBAL SUBROUTINES sf eT10N 
152 013732 10445 TRAP SERHRD 
4 7 00028 WORD + 
137 006614 -WORD €EM32 
01374 Benes ~ WORD H44 
136 01374 137 014142 JMP 9$ sExIT 
155 013746 032762 000040 000042 28%: BIT #0CU,42(R2) 30C LOW ? 
156 013754 001406 BEQ 29% ;BRANCH IF NONE 
157 013756 104456 TRAP * ae 
013760 000041 «WORD 3 
01376 006637 ~WORD E33 
013764 Boros WORD H44 
138 013766 000137 014142 JMP 9 sExIT 
160 013772 032762 000100 000042 29%: BIT #1XU,42(R2) zs INDEX UNSAFE ? 
161 014000 001406 BEQ 308 s;BRANCH IF NONE 
162 014002 104456 TRAP * mae 
014004 S000%¢ ~WORD 4 
bors 00665 »WORD €M34 
01401 007604 ~ WORD DH44 
107 014012 000137 014142 JMP 398 sEXIT 
165 014016 032762 000400 000042 430%: BIT #PHF ,42(R2) sPROCESSOR HANDSHAKE FAILURE ?? 
166 014024 001452 BEQ 42% ;BRANCH IF NOT 
167 014026 104456 TRAP CSERHRD 
014030 000043 -WORD 35 
014032 006674 -WORD €M35 
014034 007604 ~ WORD DH44 
014036 000137 014142 JMP 39% 
014042 052737 000091 002254 31$: BIS #BITO,SVSTAT sMCPE=1,RHXX A=-SYNC CONTPO. BUS PARITY 
014050 000451 be 43$ 
014052 052737 000002 002254 32$: BIS #BIT1,SVSTAT ;RHXX DATA BUS PARITY, ILLEGAL CONDITION 
014060 000445 BR 43$ DATA LATE, WRITE CHECK. 
014062 052737 000004 002254 33%: BIS #B1T2,SVSTAT sPROGRAM ERROR: PROHIBITED COMMANDS 
014070 000441 BR 43% sWERE EXECUTED (WRITE/READ TRACK DES, 


sFORMAT TRACK). 


00 0009 00 00 08 SIN NI SIN NS IO OO 


et ee ee et 2 
OO OW 
LOC ee CSS SRR ES SSNS ARANASSS 


014072 052737 000010 002254 34$: BIS #B1T3,SVSTAT DRIVE CLOCK, TIMING, DATA ERROR 
014100 000435 BR 43% sRETRY SHOULD BE ALLOWED. 

914102 052737 000020 002254 35%: BIS #BIT4,SVSTAT ZILLEGAL CONDITION ,DECODER, INTERFACE 
014110 000431 BR 43% ;PROBLEM 

014112 052737 000040 002254 36%: BIS #BITS,SVSTAT sPOSITIONING ERROR 

014120 000425 BR 43% 

014122 052737 000100 002254 37%: BIS #B1T6,SVSTAT MECHANICAL FAILURE : AIR, TEMP ETC. 
0141350 000421 BR 43% 

014132 052737 000200 002254 38$: BIS #BIT7,SVSTAT ;HEADER INFORMATION ( HEADER FAILURE, 
014146 000415 BR 43% ;O0R UNFORMAT TRACK ) 

014142 052737 000400 002254 39%: BIS og) '8.Sustar SUNSAFE (READ/WRITE, INDEX, TACH) 
014150 0004611 BR 43$ 
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$$ 


NL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 25-5 SEQ 1 
NES Stet iON on 
Ore ree 100000 000042 42%: BIT Ogse -2cne) BAD SECTOR DETECTED 
199 BNE 4 SEXIT NOT REPORT ERR ok 
104456 TRAP CSERHRD 
005 «WORD 44 
07067 -WORD €EM44 
07604 ~ WORD H44 
000763 pas 9% sExIT 
43$: 
012604 MOV (SP)4,R4 37POP STACK INTO R4& 
012603 MOV (SP)+,R3 s7POP STACK INTO R3 
12602 MOV (SP)+¢, 37POP STACK INTO R2 
12601 ($P)+,R1 POP STACK INTO R1 


MOV 
000205 RTS R5 


K 
CZRILAO RPO? FCTNL TEST MACRO VO04.00 1-JAN-83 11:06:45 PA 
GLOBAL SUBROUTINES SECTION GE 26 SEQ 0062 


1 sSUBROUTINE TO ADJUST THE SECTOR ADDRESS BECAUSE IT IS AUTOMATICALLY 
¢ d INCREMENTED AT THE END OF A TRANSFER 
2 ; JSR PC, ADJUST :CALL ROUTINE 
6 014 005737 002272 ADJUST: TST SEC.RD :SECTOR 0? 
‘ bi 13 Go1at: 002264 002272 BOY ue SEC.RD haat rh ast PHYSICAL SECTOR AND DECR TRACK 
9 014222 eet $03590 1ST TRK.RD SLAST 
10 014 6 001011 BNE 2$ ‘BR if NOT 
11 014 bb A 002262 002270 MOV NT1,TRK.RD [MAKE IT LAST PHYSICAL TRACK AND DECR CYL 
i O14 005337 002266 DEC YL.RD SDECR CYL 
13 01424 900405 BR TEXIT 
14 014246 005337 002272 1$: DEC SEC.RD : 
15 014250 900402 BR $ TEXIT 
16 014252 005337 002270 2$: DEC TRK.RD sADJUST TRACK 
4 014256 000207 3$: RTS PC 
19 sTHIS ROUTINE WILL CALL THE RPO7 DRIVER AND THEN WAIT ON THE FUNCTION 
20 31 COMPLETE. IF AN ERROR OCCURS IT IS REPORTED. 
22 : FILL “‘DPB’' WITH COMMAND INFORMATION 
23 : JSR R4,CALL.A 
3 : RETURN 
26 014260 004437 020750 CALL.A: JSR R4,RPO7 :CALL RPO7 DRIVER 
27 014264 002540 DPB.A 
28 014266 000774 BR CALL.A 
33 014270 005737 002556 1$: TST DPB.A+16 ; DONE? 
0 014274 001775 BEQ 1$ :NO--LOOP 
31 014276 100036 BPL 3$ ‘BRANCH !F NO ERROR 
32 014300 013737 002552 002274 MOV DPB.A+12,CYL.DS :CYLINDER 
014306 113737 002551 002300 MOVB  DPB.A+11,TRK.DS i TRACK 
014314 113737 002550 002276 MOVB  ODPB.A+10,SEC.DS ;SECTOR 
33 014322 004537 015100 JSR R5,ERRABO 3 CHECK THE ABORT CONDITION 
34 014326 002540 DPB.A PARAMETER BLOCK ADDRESS 
35 014330 004537 012664 JSR RS, ERRANY {DETECT ERROR 
36 014334 002540 DPB.A 
37 014336 022737 000200 002254 CMP #BIT7,SVSTAT :HEADER ERROR? 
38 014344 001013 BNE 3$ :1F NOT MATCH, NO 
39 014346 013746 002542 MOV DPB.A+2,-(SP) 
40 014352 112737 000107 002542 MOVB  #RECAL,OPB.A+2 ;SET UP FOR A RECAL COMMAND 
41 014360 004437 020750 JSR R4,RPO? ‘ISSUE THE COMMAND 
42 914364 002540 DPB.A :THIS BUFFER 
4? 014366 000240 “1B SFILLER FOR THE DRIVER 
44 014370 012637 002542 il (SP) + ,DPB.AS2 
45 014374 000204 3$: RTS R4 : RETURN 
47 :THIS ROUTINE IS THE SAME AS “‘CALL.A’ EXCEPT FOR THE DPB USED AND IF 
48 [THE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER, TRACK, 
49 : AND SECTOR) READ IS CHECKED FOR VALIDITY. 
51 3 FILL DPB 
52 R JSR R4,CALL.B 
2 : RETURN 
55 014376 004437 020750 CALL.B: JSR R4,RPO7 :CALL DRIVER 
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MACRO V06.00 1-JAN=83 11:06:45 PAGE 26-1 SEQ 0063 
Ste CALL.B 
002576 1$: TST DPB.B+16 DONE? 
Bet tN ho enna 
00257 002874 MOV DPB.B+12,CYL.DS :CYLINDER 
02571 002300 MOVB DPB.8+11.TRK.DS : TRAC 
02570 002276 MOVB  DPB.B+10;SEC.DS :SECTOR 
15100 JSR ‘ RS, ERRABO :CHECK THE ABORT CONDITION 
012664 JSR RS, ERRANY 
000200 002254 CMP #BIT7,SVSTAT sHEADER ERRORS? 
BNE 2$ STAKE BRANCH IF NOT MATCH 
002562 MOV DPB.B+2,-(SP) 
000107 002562 MOVB #RECAL,DPB.B+2 ;SET UP A RECAL COMMAND 
020750 JSR R4, RPO? SISSUE THE COMMAND 
DPB.B [THIS BUFFER 
NOP [FILLER FOR THE DRIVER 
002562 - MoV (SP)+,DPB.B+2 nae sRESTORE THE COMMAND 
002562 000173 3$: cMPB DPB.B+2 ,#RDHD : DOING IMPLIED SEEKS? 
002576 TST DPB.B+16 TERROR DETECTED ? 
BMI 4 ‘BRANCH IF SO 
015354 JSR R4, VERIFY 'GO CHECK THE DATA 
DPB.B+10 
te BR SERROR DURING VERIFY 
002231 ; STB —s- STALLF ISTALL ? 
BEO 5$ :NO--BRANCH 
015274 JSR R4, STALL SYES==CALL STALL ROUTINE 
~ WORD STALL sSTALL TIME POINTER 
5$: RTS RG sRETURN 
sTHIS ROUTINE IS THE SAME AS “‘CALL.B"’ EXCEPT FOR THE DPB USED. 
; FILL DPB 
: JSR R4,CALL.C 
: RETURN 
020750 CALL.C: sR : R4,RPO?7 ZCALL DRIVER 
R- CALL.C 
002616 1$: TST DPB.C+16 DONE? 
BEOQ 1$ :NO--LOOP 
BPL 3$ SYES-=-BRANCH IF NO ERROR 
002612 002274 MOV DPB.C+12,CYL.DS :CYLINDER 
002611 002300 MOVB ODPB.C+13.TRK.DS : TRACK 
002610 002276 MOVB ODPB.C+10;SEC.DS :SECTOR 
015100 JSR RS,ERRABO 
DPB.C ;CHECK THE ABORT CONDITION 
012664 JSR ; RS,ERRANY 
000200 002254 CMP #BIT7,SVSTAT ;HEADER ERRORS? 
BNE 2$ [IF NO MATCH, NO! 


002602 MOV DPB.C+2,-(SP) 


g5 
ge 
oe 
53 
=~ 


i kt kk ed ed dd ed td oe 


CN Sa weds 
NADU WN —OODNOUSWNO 


SOooooocececoeso coooocoo 
Sees 


_ V04.00 1-JAN-83 11:06:45 PAGE 26-2 


107 002602 MOVB #RECAL ,DPB.C+ 
£98 48% JSR RA RPO? ¢ 
DPB.C 
NOP 
002602 MOV (SP)+,DPB.C+2 
2$: BR 5$ 
002602 009173 3$: ee 008.C+2 .ARDHD 
002616 TST DPB.C+16 
BMI 4$ 
015354 JSR RG, VERIFY 
dPB.C+10, 
002231 4$: STB ss STALLF 
BEQ 5$ 
015274 JSR R4, STALL 
-WORD STALL? 
5$: RTS 


SEQ 0064 
sSET UP_A RECAL COMMAND 
2 ISSUE THE COMMAND 
sFROM THIS BUFFER 
sFILLER FOR THE DRIVER 


:DOING IMPLIED SEEK? 
[NO=-EXIT 

:ANY ERROR ? 
SYES@=CHECK THE DATA 
SERROR DURING VERIFY 
sSTALL ? 

sNO--BRANCH 


sYES--CALL STALL ROUTINE 
STALL TIME POINTER 


n 5 
CZRJLAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-23 11:06:45 PAGE 27 SEQ 0065 
GLOBAL SUBROUTINES SECTION , 
1 sTH.$ ROUTINE IS THE SAME AS “‘CALL.A™ EXCEPT FOR THE DPB USED AND 
¢ 3 ERROR LOCATION “ERR.CT’’ IS EXAMINED. IF ERR.CT IS EQUAL TO 
sSERFLG EXIT IS TO THE NEXT TEST. 
4 sCALL 
5 3 FILL DPB 
§ : R R4,ORVCAL 
3 RETURN 
§ 014742 005087 002340 DRVCAL: CLR WCEFLG CLEAR WRITE CHECK ERROR FLAG 
10 014746 004437 020750 JSR R4,RPO7 sCALL DRIVER 
11 014752 602620 DTADPB 
4 Biers 0007 ¢ BR DRVCAL 
13 0147 § 00 3 002636 3$: TST RIADPB+16 ;DONE 
14 014762 001775 BEQ $ sNO--LOOP 
15 014764 100401 BMI 1$ :BR IF ERRORS 
18 gi4788 000417 13 BR 4$ zNO ERRORS 
18 014770 013737 002632 gocere MOV DTADPB+12,CYL.DS sCYLINDER 
014776 11 3! 002631 002300 MOVB DTADPB+11,TRK.DS 3 TRACK 
015006 113737 002630 002276 MOVB DTADPB+10,SEC.DS SECTOR 
19 015012 004537 015100 JSR R5,ERRABO :CHECK THE ABORT CONDITION 
20 015016 002660 DTADPB DATA BLOCK ADDRESS 
21 015020 004537 012664 JSR R5,ERRANY 
22 015024 002620 DTADPB 
25 015026 4$: 
24 015026 105737 002231 TSTB STALLF sSTALL ? 
25 015032 001403 BEQ 5$ :NO--BRANCH 
26 015034 004437 015274 JSR R4,STALL ZYES@-CALL STALL ROUTINE 
27 015040 002350 «WORD STALL2 STALL TIME POINTER 
$8 015042 000204 5$: RTS 
30 : 
31 ;SUBR TO EXECUTE A COMMAND STORED IN DTADPB. 
32 :SIMILAR TO SUBR CALL.A EXCEPT THAT HARD AND SOFT ERRORS ARE NOT CHECKED 
$ 31.€. NO CALL TO ERRANY. 
35 015044 004437 020750 EXECMD: JSR R4,RPO7 EXEC CMD 
36 015050 002620 DTADPB 5 PIR 
37 015052 000774 BR EXECMD sWAIT FOR Q NOT FULL 
38 015054 005737 002636 2$: TST DTADPB+16 3; DONE? 
39 015060 001775 BEQ 2$ sWAIT FOR DONE 
40 015062 100003 BPL 3$ 7SKIP ON ERROR FREE DONE 
41 015064 004537 015100 JSR R5,ERRABO sERROR: CHECK ABORT CONDITION 
42 sEXIT TEST IF "DPB'+16 SET WITH ERRORS: 
4? sNED+PRT+STO*MCP+PAR+OFL*UNS. 
44 015070 002620 DTADPB :"DPB* PT 
45 015072 013702 002634 3$: MOV DTADPB+14,R2 FETCH AD OF SAVED REG TBL 
46 015076 000207 RTS PC 


CZRILAO RPO? FC 
GLOBAL SUBROUTI 
4 
5 
6 
7 
8 
9 015100 
10 015102 
13 pigige 
18 01811 
14 0151 
15 015126 
16 0151 
17 015140 
18 015144 
19 015146 
015150 
015152 
015154 
20 015156 
21 015160 
22 015164 
23 015166 
015170 
015172 
015174 
24 015176 
25 015200 
26 015204 
27 015206 
035210 
Blasts 
015214 
28 015216 
29 015220 
30 015224 
31 015226 
015230 
015232 
015234 
$ 015236 
= 015240 
34 015244 
35 015246 
015250 
015252 
015254 
36 015256 
37 015260 
38 015264 
39 015266 
40 015270 
41 
42 
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MACRO V04.00 1-JAN-83 11:06:45 PAGE 28 


44 
000036 
4444] 
00000 


000016 
000002 


000004 
001090 
006000 
050000 


002252 


THIS ROUTINE IS USED TO DETERMINE THE ABORT CONDITIONS OF 


[THE 1/0 ROUTINES 
[CALLING SEQ 
; JSR RS, ERRABO 
: NORMAL RET 
ERRABO: MOV R1,-(SP) 
MOV R2.=(SP) 
MOV (P5)4_R1 
MOV 14(R15,R2 
MOV 36(R2).CYL.RD 
MOVB $<). SEC.RD 
MOVB (R2) TRK.RD 
MOV 16(R15,R2 
BIT #BIT1,R2 
BEQ 1$ 
TRAP  CSERDF 
«WORD 25 
“WORD EM25 
“WORD DH25 
BR 5$ 
1$: BIT #B1T2,R2 
BEQ 2$ 
TRAP  CSERDF 
.WORD 26 
“WORD M26 
“WORD DH44 
BR 5$ 
2$: BIT #BIT9,R2 
BEQ 3$ 
TRAP  CSERDF 
.WORD 27 
“WORD M27 
“WORD © DH44 
BR 5$ 
3$: BIT #B1T10!B1T11,R2 
TRAP  CSERDF 
.WORD 30 
“WORD €&M30 
“WORD DH25 
BR 5$ 
4$: BIT #B1T12!B1T14,R2 
BEQ 6$ 
TRAP  CSERDF 
.WORD 31 
[WORD  EM31 
WORD DH25 
BR it 3 
5$: MOV BYPASS,RS 
6$: MOV (SP)+,R 
MOV (SP)+.R1 
RTS K5 


DATA BLOCK PAR ADDRESS 


sSAVE R1 


sSAVE R2 

;LOAD THE DPB ADDRESS 

sADDRESS OF SAVED REGISTER TABLE 
:GET CURRENT CYLINDER 

:GET CURRENT SECTOR 

GET CURRENT TRACK 

sR2 TEMP STORAGE 

sDRIVE BECOME NON-EXIST ? 
;BRANCH IF NOT 


EXIT 
sPORT REQUEST TIMEOUT ? 
;BRANCH IF NOT 


;TIME OUT ON THIS DRIVE 
s;BANCH IF NOT 


sEXIT 
;MASSBUS PARITY ERROR ? 
;BRANCH IF NOT 


DRIVE UNSAFE OR OFFLINE 
BRANCH IF NOT (OTHER ERROR CATLOG) 


;THE ABORT ADDRESS 
sEXIT IF NO ABORT CONDITION 


EXIT 


SEQ 0066 C 


C 6 


CZRILAO RPO? FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 28-1 SEQ 0067 
GLOBAL SUBROUTINES SECTION 

43 sABORT RETURN ADDRESS FROM ERRABO’ SUBR, VIA "BYPASS", ON DEV FATAL ERROR 

45 015272 ABOPAS: 

- 015272 1044446 TRAP = CSDCLN 

47 

48 sTHIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 

49 SAMOUNT OF TIME IF STALRD = 0 OR A RANDOM AMOUNT OF TIME IF STALRD = 1. 

50 [STALL1 CONTAINS SPECIFIED TIME FOR TESTS 1-6, AND STALL2 

31 : CONTAINS THE TIME FOR TESTS 13-18. 

38 ; JSR RG, STALL 

34 : TIME POINTER sWHERE TO FIND THE STALL TIME 

56 015274 013446 STALL: MOV a(R4)+,-(SP) | ;PICKUP STALL TIME 

57 015276 105737 002232 TSTB = STALRD SUSE A RANDOM TIME ? 

58 015302 001406 BEQ 1$ [NO--BRANCH 

59 015304 004737 011610 JSR PC,RAND :YES==FORM RANDOM NUMBER 

60 015310 013716 011672 MOV $RP1, (SP) [AND USE IT FOR THE STALL TIME 

61 015314 042716 177700 BIC #°C77, (SP) [BUT NEVER > 64 MILLISECONDS 

62 015320 005046 1$: CLR -(SP [CLEAR TEMP. LOCATION 

63 015522 162766 000001 000002 2$: SUB #1,2(SP) [MORE STALL REQUIRED? 

64 015330 103407 BLO 4$ :NO=-BRANCH 

65 015332 012716 000144 MOV #100., (SP) *STALL FOR ABOUT 1 MILLISECOND 

66 015336 005704 3$: TST RG [NOP TO KILL TIME 

67 015340 005366 000000 DEC O(SP) > COUN 

68 015346 001374 BNE 3$ SLOOP IF MORE COUNTS NEEDED 

69 015346 000765 BR 2$ 

70 015350 022626 4$: CMP (SP)+, (SP)+ sCLEAN OFF THE STACK 

4 015352 000204 RTS RL EXIT 
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EST MACRO V04.00 1-JAN-83 11:06:45 PAGE 29 SEQ 0068 
GLOBAL SUBROUTINES SECT 


10N 


vr 
vo 


1 ROUT INE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 
g 3 JSR RG, VERIFY 
4 ; ADR POINTER ZADDRESS OF DPB+10 (SECTOR NUMBER) 
5 : ERR RETURN 
§ § RETURN 
5 015354 010146 VERIFY: MOV R1,<(SP) :SAVE R1 
9 015356 012401 MOV (R4)+,R1 *GET ADDRESS OF DPB+10 
10 015360 042737 150000 042610 BIC #150060,DBUFF  :STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER 
11 015366 023761 042610 000002 CMP DBUFF ,2(R1) :CYLINDER NUMBER OK? 
i 015374 991005 BNE ?NO=-BRANCH 
13 015376 023711 042612 CMP DBUFF +2, (R1) SYES--HOW ABOUT TRACK/SECTOR? 
14 015402 001431 BEQ i ‘BRANCH IF GOO 
15 015404 013737 042610 002266 1$: MOV DBUFF,CYL.RD | SAVE THE EXPECTED AND THE 
16 0194612 113737 042613 002270 MOVB ODBUFF43,TRK.RD :RECIEVED CYLINDER, TRACK, 
17 015420 113737 042612 002272 MOVB  DBUFF+#2,SEC.RD :AND SECTOR 
1B 015426 112137 002¢76 MOVB = (R1)#, SEC.DS 
19 015432 112137 002300 MOVB  (R1)+.TRK. 
20 015436 011137 002274 MOV (R1),CYL.DS 
21 015442 005744 T =(R45 sMAKE IT TEST PC+4 
22 015444 104456 TRAP = C$ERHRD 
015446 000052 .WORD 42 
015450 007020 “WORD EM42 
015452 010340 “WORD DH45 
23 015454 012737 000107 002542 2$: MOV #RECAL,DPB.A+2 ;LOAD RECALIBRATE ORDER CODE 
24 015462 004437 014260 JSR R4,CALL.A [G0 EXECUTE THE COMMAND 
25 015466 062704 000002 3$: ADD #2,R4 : INCREMENT RETURN ADDRESS 
26 015472 012601 i$: MOV (SP)+,R1 SRESTORE R1 
27 015474 000204 RTS RL ; 
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GLOBAL SUBROUTINES SECTION 


1 
¢ THIS ROUT INE WILL PEREORM A “MASSBUS” INIT. FOLLOWED BY 
"RE CALIBRATE THE DRIVE U TEST. 
é ENTE: THIS ROUTING DESTROYS al wt D RG 
4 3 JSR R4,SRCHOO :D0 A MASSBUS Init. AND RECAL 
7 ; RETURN SRETURN HERE IF NO ERROR 
: RETURN2 [RETURN HERE ON ERROR 
10 015476 005001 SRCHOO: CLR R1 zs INCASE OF ERROR (TYPTIM) 
11 015500 Q12777 000040 165162 MOV #CLR,@RPCS2 MASSBU S INIT. 
1 013506 005037 902650 CLR DTADB+10 RACK=0; SECTOR=0 
13 015512 005937 0026 CLR DTADPB+1 HINDER 
14 015516 012737 000107 002622 MOV gt = DTADPB+2 : COMMAND = RECALIBRATE 
15 015524 004437 020750 JSR 4, RPO? 3CALL T HE DRIVER 
16 015530 9026¢0 DTADPB PB POINTER 
17 015532 0004 BR 4$ BRANCH IF QUEVE FULL.NO SPACE 
18 015534 005737 002636 1$: TST DTADPB+16 ‘WAIT ON DONE 
19 015540 001775 BEO 1$ 
20 015542 100083 BPL 3$ ; TAKE NORMAL EX3T IF NO ERROR 
21 015544 013737 002632 002274 MOV DTADPB+12,CYL.DS : CYLINDER 
015552 113737 002631 002300 MOVB DTADPB+11,TRK.DS : TRACK 
015560 113737 002630 002276 MOVB = DTADPB+10.SEC.DS SSECTOR 
22 015566 004537 015100 SR RS, ERRABO :CHECK ANY ABORT CONDITION 
23 015572 002620 DTADPB 
24 015574 004537 012664 JSR RS, ERRANY 
25 015600 002620 DTADPB 
26 015602 005724 23: TST (R4)+ sADJUST FOR ERROR EXIT- 
27 015604 000406 BR 43 GO TO TH XIT 
28 015606 012777 000000 165052 3$: MOV #0,aRPDA ;TRACK AND SECTOR =0 
29 015614 012777 000090 165072 MOV #0. aRPDC SCYLINDER = 0 
30 015622 000204 4$: RTS RG RETURN 
32 ;THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS 
35 015624 DORTI: ;RETURN FROM INTERRUPT 
36 015624 L10011: 
- 015624 000002 RTI 
38 : THIS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE TIMING ROUTINE 
40 . JSP PC,STRTMR 
i} 5 RETURN 
42 015626 004737 010646 STRIMR: JSR PC, SAVREG ZSAVE RO-RS 
44 015632 012700 002302 MOV #TiM.UP,RO :START AT TIM.UP (MINIMUM) 
45 015636 012701 002336 MOV #TIM.PT.RI :STOP AT TIM.PT 
46 015642 005020 1$: CLR (RO) + *CLEAR 
47 015664 020001 CMP RO,R1 : DONE 2 
48 015646 103775 BLO 1$ “BRANCH 
49 015650 012710 042610 MOV #DBUFF, (RO) ee TUP POINTER 
50 015654 012737 077777 002302 MOV #*CBITIS, TIM.UP :SET MINIMUM T me TO MAXIMUM 
51 015662 012737 077777 002320 MOV #°CBIT15.TIM.DN :POSITIVE NUMBER 
52 015670 004737 010700 JSR PC, RESREG SRESTORE RO-RS 
33 015674 000207 RTS PC RETURN 
55 sTHIS ROUTINE IS USED FOR MEASURE THE AVERAGE SEEK TIME 


F 
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GLOBAL SUBROUTINES SECTION 


6 zIN_THE TEST 10 

4 THE TIME IS MEASURED AS: 

2B 3 , (T1X629+T2K62841 3N627*7T4K626.......)K2 

$ ; 629x629 

8 ; WHERE THE 11 IS THE SEEK TIME FROM CYLO TO CYL1 

64 : rH T2 IS THE SEEK TIME FROM CYLO TO CYL2 .ETC. 

#4 THE COUNT2: ROUTINE WILL CALCULATE THE FOLLOWING SUMMATION 

67 ; (T1X6294T2K628+T3K627+.......) K 2 

34 3 629 

71 015676 012702 002302 COUNT2: MOV #TIM.UP,R2 COUNT UP TABLE 

72 015702 005705 TST RS COUNT UP CALCULATING ? 

73 015704 001402 BEQ 1$ sBRANCH IF SO 

74 015706 012702 002320 MOV #TIM.DN,R2 ZLOAD THE COUNT DOWN TABLE 

75 015712 010146 1$: MOV R1,-(SP) COEFFICIENT 629,628,627,.... ETC. 
76 015714 017746 174204 MOV aPKC ,=(SP) MEASURED TIME INTERVAL 

77 015720 004737 011316 JSR PC, SMULT TIME INTERVAL X COEFFICIENT 

78 015724 016666 000002 177776 MOV 2(SP) ,-2(SP) SWAP THE LSB , MSB OF THE PRODUCTION 
79 015732 011666 000002 MOV (SP) ,2(SP) : 

80 015736 016616 177776 MOV -2(SP), (SP) : FOR THE CALLING SEQ OF $DIV ROUTINE 
81 015742 013746 002206 MOV LC,-(SP) DIVIDED BY 629 (TOTOL # OF SEEKS) 
82 015746 006216 ASR (SP) ; DIVIDEC BY 629/2 

83 015750 005216 INC (SP) sROUND UP THE FRACTION 

84 015752 004737 011074 JSR PC,$DIV TIME X COEFFICIENT/TOTAL # OF SEEKS 
85 015756 006126 ROL (SP)+ REMAINDER OVER 0.5 ? 

86 015760 100001 BPL 2$ :BRANCH IF NOT 

87 015762 005216 INC (SP) sROUND UP 

88 015764 062662 000010 2%: ADD (SP)+, 10(R2) [LSB OF THE TOTAL SUM 

89 015770 005562 000012 ADC 12(R2) sHSB OF THE TOTAL SUM 

90 015774 005262 000014 INC 14(R2) TOTAL SEEK COUNT 

91 016000 017777 174120 164330 MOV aPKC ,aTIM.PT SAVE THE TIME INTERVAL 

92 016006 062737 000002 002336 ADD #2,1T1M.PT ADJUST THE POINTER 

93 016014 027712 174104 CMP aPKC, (R2) :MINIMUM TIME 

94 016020 002002 BGE 3$ :BRANCH IF NOT 

95 016022 O177ie 174076 MOV aPKC, (R2) LOAD THE NEW MINIMUM 

96 016026 027763 174072 000004 3$: CMP aPKC, 4(R3) LOWER THEN THE LIMIT ? 

97 016034 002002 BGE 4$ :BRANCH IF NOT 

98 016036 005262 000002 INC 2(R2) UPDATE THE COUNTER IS SO 

99 916042 02776¢ 174056 000004 4$: CMP aPKC ,4(R2) GREATER THAN THE MAXIMUM VALUE ? 
10C 016050 00340 BLE 5$ :BRANCH IF NOT 
101 016052 017762 174046 000004 MOV aPKC ,4(R2) LOAD THE NEW MAXIMUM VALUE 
102 016060 027763 174040 000006 5$: CMP aPKC ,6(R3) OVER THE LIMIT 
103 016066 003402 BLE 6 sBRANCH IF NOT 
104 016070 005262 000006 INC 6(R2) UPDATE THE COUNT, IF SO 
105 016074 000207 6$: RTS PC sEXIT 
107 THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 
108 sMAINTAIN THE MINIMUM AND MAXIMUM TIMES. 
109 NOTE: THIS ROUTINE DESTROYS R2 
111 : MOV #TP,R3 :PARAMETER POINTER 
112 : MOV FLAG,RS sFLAG=0=COUNT UP 
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CRO v0.00 1-JAN-83 11:06:45 PAGE 30-2 SEQ 0071 
3 sFLAG=-1=COUNT DOWN 
: JSR PC, COUNT 
3 RETURN 
002302 COUNT: MOV #TIM.UuP,R2 :PICKUP THE “UP*’ POINTER 
1ST R5 SUSE 11? 
BEQ 1$ : YES--BRANCH 
902380 MOV @TIM.ON,R2 zNO--PICKUP ‘"‘DOWN’’ POINTER 
1740 1$: CMP aPKC, (RO) SLESS THAN PREVIOUS LOW? 
BGE $ 3NO--BRANCH 
174000 177776 MOV aPKC ,-2(R2) SYES==SAVE IT 
173772 000004 2%: CMP QC. 4(R5) [LESS THAN THE LOW LIMIT? 
BGE $ [NO=-BRANCH 
INC (R2) SYES==COUNT IT P 
3$: TST (R2)* SADVANCE THE POINTER 
173756 CMP aPKC, (R2)¢ [GREATER THAN PREVIOUS HIGH? 
BLE 4$ :NO=-BRANCH 
173750 177776 MOV aPKC ,-2(R2) *YES=-SAVE IT 
173742 000006 4$: CMP aPKC .6(R3) :GREATER THAN THE HIGH LIMIT? 
BLE 5$ [NO--BRANCH 
INC (R2) SYES==COUNT IT 
5$: TST (R2)¢+ sADVANCE THE POINTER 
173726 ADD aPKC .(R2)* SADD THIS COUNT TO THE TOTAL 
+ 
INC (R2) sCOUNT THIS READING 
002114 000022 CMP LSTEST, #18. [D0 NOT SAVE COUNTS IN MEMO IN 8 TO ALLOW 
TA WRITE=CHECK OPERATION AFTER THE TIMED WRITE 
TOTHERWISE WRITE DATA WILL BE DESTOVED AND A 
So ~ SWRITE CHECK ERROR WCE WILL RESULT JW RPCS2! 
047534 002336 CMP #DBUFF +<4*629.>,TIM.PT :SAVE THIS COUNT? 
SLAST CYLINDER X 4 
BLOS 6% yNO--BRANCH 
173676 164106 MOV aPKC ,aTIM.PT sYES--WELL SAVE IT THEN 
000002 002336 ADD #2,TiM.PT SADVANCE THE POINTER 
63: RTS PC RETURN 
THIS ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS 
7 CALL 
; JSR R4,SPTYP 
: TABLE ADDRESS 
[TABLE: .WORD MESSAGE 
; ~ WORD MIN VALUE 
s ~ WORD MAX VALUE 
SPTYP: MOV (R4)+,R2 sTHE TABLE ADDRESS 
002227 TSTB TIMTYP sALLOW PRINT 
BEO 3$ TEXIT IF NOT 
:PRINT MESSAGE 
MOV (R2)+,=-(SP) 
000001 MOV #1,-(SP) 
MOV SP.RO 
TRAP CSPNITF 
000004 ADD #4,5P 
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1 Pacno v06.00 1-JAN-83 11:06:45 PAGE 30-3 


17777 
01713 
000002 
000006 
003054 
000001 


000004 


2$: 


3$: 


(R2)¢ 
1 


=2(R2),=(SP) 
@MSGMIN,-(SP) 
#2.-(SP) 


SP-R 
CSPNTE 

#6,SP 

(RO) 

23 
=2(R2),<(SP) 
#MSGMAK,<(SP) 
#2, = (SP5 


SP 
SSPNTE 


+ ee! =(SP) 
a (SP) 

Spi 

Sent 

#4 ,SP 

RG 


top MIN VALUE 


SKIP iF MIN VALUE IS 0 


THE MAXIMUM VALUE 
[BRANCH IF NO LIMIT 


;CReLF 


SEQ 0072 


CZRILAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 31 SEQ 0073 
GLOBAL SUBROUTINES SECTION 
1 
§ 3; THIS ROUTINE 1S USED TO TYPE THE MINIMUM, 
“MAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS 
4 t1T WILL ALSO CHECK THE TIMES TO ENSURE 
5 STHEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES. 
g ENOTE THIS ROUTINE DESTROYS R2-R5 
* ; JSR RG, TYPTIM :GO REPORT THE TIMES 
9 3 TABLE [POINT TO THE PROPER TABLE 
19 3 RETURN 
4 STABLE: MSGADR1 yADDRESS OF ASCIZ MESSAGE NUMBER 1 
1 ; MSGADR2 TADDRESS OF ASCIZ MESSAGE NUMBER 2 
14 : MIN. ALLOWED *MINIMUM TIME ALLOWED 
15 : MAX. ALLOWED sMAXIMUM TIME ALLOWED 
17 016370 01240 TYPTIM: MOV (RG) *,R2 :PICKUP THE TABLE POINTER 
18 016372 105737 002227 1STB TIMTYP ‘INHIBIT TIME REPORTS? 
19 016376 001001 BNE 1$ ‘NO, PROCEED 
20 016400 000204 RTS R4 TEXIT 
¢¢ 016402 010446 1$: MOV R4,=(SP) sSAVE RET ADR 
23 016406 012237 017104 MOV (R3)+, 11% sADDRESS OF MESSAGE NUMBER 1 
24 016410 012205 MOV (R2)¢,R5 sADDRESS OF MESSAGE NUMBER 2 
25 016412 012203 MOV (R2)+,R3 ‘PICKUP THE LOW L 
26 016414 011202 MOV (R2),R ‘AND THE HIGH LIMIT 
27 016416 012704 002302 MOV @TIM.UP,R4 [PARAMETER POINTER 
28 016422 004737 017462 JSR PC,CHKTIM ‘SEE IF ALL THE DATA IS TO BE TYPED 
29 016426 2s: 
016426 013746 017104 MOV 11$,-(SP) 
016432 012746 000091 MOV #1,-(SP) 
016436 010600 MOV SP,R 
016440 104417 TRAP CSPNTF 
016442 062706 000004 ADD #6,$ 
30 016446 005764 000014 TST 14(R4) :DID ANY COUNTS OCCUR? 
31 016452 001012 BNE 3$ ‘BR IF YES 
32 016454 012746 017443 MOV #MSGNON,-(SP) 
016460 012746 000001 MOV #1,-(SP) 
016464 010600 MOV P,R 
016466 104417 TRAP  (CSPNTF 
016470 062706 000004 ADD #4,SP 
33 016474 000137 017100 JMP 108 
34 016500 3$: 
916500 012446 MOV (R4)+,=(SP) 
016502 012746 017110 MOV #MSGMIN,-(SP) 
016506 012746 000002 MOV #2,-(SP) 
016512 01060 MOV SP, 
016514 10441 TRAP  CSPNTF 
016516 062706 000006 ADD #6,S 
35 016522 ST (RL)+ sANY SEEKS BELOW THE LOW LIMIT 
36 0165246 BEQ 4 ‘NO--BRANCH 
37 016526 1ST $S$FLG ‘TYPE # OF SEEKS BELOW LIMIT? 
38 016532 BEQ 4$ =NO, SKIP IT 
9 016534 MOV 3,-(SP) 
016536 MOV -2(R4) ,=6 
016542 MOV #MSGBEL ,-(SP) 
016546 MOV #3,-(SP) 


J 6 


CZRILAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 31-1 SEQ 0074 
GLOBAL SUBROUTINES SE eT 1ON 
16552 0106 MOV SP.RO 
oie 2 010800 TRAP = CSPNTE 
16556 062706 000010 ADD #10,SP 
40 01656 4$: 
Bie 6 12646 MOV (R4&)+,=(SP) 
16564 12766 017133 MOV #MSGMAX,=(SP) 
016570 012746 000002 MOV #2,-(SP5 
016574 01060 MOV P’RO 
016576 10441 TRAP  CSPNTF 
016600 962706 000006 ADD #6,SP 
41 016604 005724 TST (Ro) yANY SEEKS ABOVE THE HIGH LIMIT 
4¢ 916608 901416 BEQ 3$ [NO=-BRANCH 
43 016610 005737 017542 TST SFLG [TYPE # OF SEEKS BELOW LIMIT? 
64 016614 001413 BEO + 3 [NO, SKIP IT 
45 016616 010246 MOV Roa (SP) 
0166 0 016446 177776 MOV =2(R4) ,=(SP) 
16624 012746 017257 MOV #MSGABV,-(SP) 
016630 012746 000003 MOV #3,-(SP) 
016634 0106 MOV SP-R 
016636 104417 TRAP CSPNTF 
016640 062706 000010 ADD #10,SP 
66 016644 S$: 
016644 012746 017156 MOV #MSGAVG,-(SP) 
016650 012746 000001 MOV #1,-(SP) 
016654 010600 MOV SP,RO 
016656 104417 TRAP CSPNTF 
016660 062706 000004 ADD #4,SP 
47 016664 012446 MOV (R4)+,=(SP) sFORM THE AVERAGE 
48 016666 012446 MOV (R4)+,-(SP) 
49 016670 012446 MOV (R4)+.=(SP) 
50 016672 004737 011074 JSR PC,$Div 
51 016676 006126 ROL (SP)+ 31S THE REMAINDER OVER HALF? 
52 016700 100001 BPL 6$ :NO=-BRANCH 
53 016702 005216 INC (SP) SYES=-ROUND UP 
54 016704 012637 017106 6$: MOV (SP) +, AVERAG :POP AVERAGE VALUE FOR PRINT 
55 016710 013746 017106 MOV AVERAG, -(SP) 
016714 012746 017167 MOV #AVGVAL,-(SP) 
016720 012746 000002 MOV #2,-(SP) 
016724 910600 MOV P-RO 
016726 10441 TRAP  CSPNTF 
016730 062706 000006 ADD #6,SP 
56 016734 022737 000007 002114 CMP #7.LSTEST sTEST 7 ? 
57 016742 001425 BEQ 7$ [BRANCH IF SO 
58 916744 022737 000016 002114 CMP #14. ,LSTEST STEST 14 ? 
59 016752 001452 BEO 3 [BRANCH IF SO 
60 016754 022737 000022 002114 CMP #18. ,LSTEST :TEST 18 ? 
61 016762 001426 BEO 8$ SBRANCH IF SO 
62 016764 016446 177776 MOV =2(R4),=(SP) 
016770 012746 017334 MOV #MSGNUM,-(SP) 
016774 012746 000002 MOV #2,-(SP) 
017000 010600 MOV SP-RO 
017002 104417 TRAP  CSPNTF 
017004 062706 000006 ADD #6,SP 
63 017010 000425 BR 9$ sSKIP 
64 017012 7$: 
017012 016646 177776 MOV =2(R4) ,-(SP) 
017016 012746 017361 MOV #@MSGSEA, (SP) 


CZRJLAO RPO? FCTNL TES 
GLOBAL SUBROUTINES SEC 
170 1274 
nea 
SES aes 
65 0170 tthe 
66 017040 
017040 ol 446 
0170464 012746 
017050 012746 
SEAT 01 09 
is ag 
67 017084 O16587 
68 017070 001403 
69 017072 005005 
70 017074 000137 
71 017100 012604 
% 017102 000204 
74 017104 000000 
fe 017106 0000 
80 017110 045 
81 017133 045 
B¢ 017156 045 
83 017167 045 
84 017202 045 
85 017257 045 
86 0173354 045 
87 017361 045 
88 017411 045 
89 017443 045 
90 
91 
95 
96 
97 
98 
99 
100 
101 017462 005037 
4 017466 122737 
103 017474 001017 
104 917476 016446 
10$ 017502 016446 
106 017506 016446 
107 017512 004737 
108 017516 006116 
109 017520 022664 
110 017524 002401 
111 B17 368 005216 
ie 017530 022602 
113 017532 003402 
114 017534 005237 
132 017540 000207 
117 017542 000000 


1 MACRO V06.00 1-JAN-83 11:06:45 PAGE 31-2 SEQ 0075 
000002 MOV #2,-(SP) 
TRAP SSéNTE 
000006 ADD ; 
8s BR sSKIP 
Opals Moy aascoPe sts) 
00002 MOV #2,-(SP5 
MOV SP-RO 
TRAP = CSPNTF 
000006 ADD 6.5P 
017104 9$: MOV R5.11$ ZNEXT MESSAGE POINTER 
BEQ 10$ [IF NONE EXIT 
CLR RS [NO MORE THAN 2 
016426 JMP 2$ 
10$: MOV (SP) +, RG sFETCH RET ADR 
RTS RG EXIT 
11$: .wORD 0 ZADRRESS OF MSG 1 
AVERAG: .WORD 0 SAVERAGE VALUE 
116 045 MSGMIN: .ASCIZ /%NZAMIN=%D5%A0. US/ 
116 045 MSGMAX: .ASCIZ /%NZAMAX=%D5%ZA0. US/ 
116 045 MSGAVG: .ASCIZ /%NZAAVG= 
104 065 AVGVAL: .ASCIZ /2D5%A0. US/ 
101 040 MSGBEL: .ASCIZ /%A %D4%A. BELOW THE MINIMUM OF %DS%A0. US%N/ 
101 040 MSGABV: .ASCIZ /%A %D4%A. ABOVE THE MAXIMUM OF %D5%A0. US%N/ 
104 065 MSGNUM: .ASCIZ /%DS%A, SEEKS TIMED%N/ 
104 065 MSGSEA: .ASCIZ /%D5%A. SEARCHES TIMEDZN/ 
194 065 MSGOPE:: .ASCIZ /%D5%A. OPERATIONS TIMED%N/ 
101 040 MSGNON: .ASCIZ /%A NOT TIMEDZN/ 
EVEN 
;SUBR TO CHECK IF COMPLETE SPECS ON SEEKS SHOULD BE TYPED 
TIF THE AVERAGE SEEK TIME IS ABOVE SPEC, THEN TYPE ABOVE AND BELOW VALUES 
TELSE, DO NOT TYPE THEM 
:$$FLG IS SET TO INDICATE TYPE THEM 
017542 CHKTIM: CLR SSFLG sINIT FLAG 
000011 002114 CMPB ss #9. LLSTEST STEST 9, AVERAGE SEEK TIMING ? 
BNE $ tEXIT IF NOT 
000010 MOV 10(R4),-(SP) | PUSH LOW DIVIDEND OF TOTAL TIME OF ALL SEEKS 
000012 MOV 12(R4).=(SP) | PUSH HIGH DIVIDEND 
000014 MOV 14(R4).-(SP) PUSH DIVISOR = NUMBER OF SEEKS TIMED 
011074 JSR PC,$D1 SCALCULATE AVERAGE 
ROL (SP) TREM/2 
000014 CMP (SP)+,14(R4) 31S REM OVER HALF? 
BLT 1$ [NO, SKIP NEXT 
INC (SP) [YES, ROUND UP AVG TIME 
1$: CMP (SP) +,R2 SOUT OF SPEC? 
BLE 3$ TEXIT IF NOT 
017542 28: INC $$FLG [SET FLAG TO REPORT ALL DATA 
$: RTS PC 
$$FLG: .WORD 0 sTYPE ALL SPECS FLAG 


CZRILAO, RPO? FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 32 SEQ 0076 
OUTINES of etiON 
1 :THIS ROUTINE GENERATES RANDOR CYLINDER, TRACK, AND SECTO 
¢ SADDRESSES AND SAVES THEN IN THE bPé (pfappa+16, 11 STADPB+12). 
SNOTE: THIS ROUTINE D DESinovs R1-R 
4 > CALL 
5 ; JSR R4,RANADR 
$ $ RETURN 
8 017544 004737 01161 RANADR: JSR PC RAND : GENERATE A RANDOM NUMBER 
9 017550 113701 01167 MOVB = $R M SECTOR IN R 
10 017554 042701 17770 BIC $to700. R1 REDUCE SIZE TO 1 es 
i ZBINARY SEARCH FOR FS<=R1<=LS 
14 017560 020137 002222 1$: CMP R1,LS ZWHILE RI>LS DO RI=FS+(R1-FS)/2 
15 017564 003407 BLE 
16 017566 163701 002220 SUB FS,R1 
17 017572 000241 CLC 
18 017574 006001 ROR Ri 
19 017576 063701 002220 ADD FS,R1° 
20 017602 000766 BR 1$ 
$) 017604 020137 002220 2$: CMP R1,FS SWHILE R1<FS DO RI=LS=(LS-R1)/2 
23 017610 002011 BGE 3$ 
24 017612 013708 002222 MOV LS .R2 
25 017616 01020 MOV R2,R 
26 017620 160102 SUB R1,R2 
27 017622 000241 CLC 
28 017624 906002 ROR R2 
29 017626 16020 SUB R2,R3 
30 017630 010301 MOV R3,R1 
3! 017632 000764 BR 2$ 
33 017634 110137 002630 3$: MOVB R1 ,DTADPB+10 :SET RANDOM SECTOR IN DPB 
34 017640 113701 011673 MOVB $RP1+ [FORM TRACK IN R1 
3 017644 042701 177740 BIC serra. Rt s REDUCE RODE TO <= 31 
HH BINARY SEARCH FOR FI<=R1<=LT 
39 017650 020137 002214 4$: CMP R1,LT rWHILE RIDLT DO RI=FT+(RI-FT)/2 
40 017654 003407 BLE 5$ 
41 017656 163701 002212 SUB FT,R1 
42 017662 000241 CLC 
43 017664 006001 ROR R1 
44 917666 063701 002212 ADD FT,RI1 
45 017672 900766 BR 4$ 
46 017674 020137 002212 5$: CMP R1,FT ZWHILE RI<FT DO RI=LT=(LT-R1)/2 
47 017700 902011 BGE 6$ 
48 017702 01 70 002214 MOV LT,R2 
49 017706 01020 MOV R2,R3 
50 017710 160102 SUB R1,R2 
$1 017712 000241 CLC 
2¢ 017714 006002 ROR R2 
5 017716 160203 SUB Re RS 
54 017720 010301 MOV R3, 
25 017722 000764 t 
57 017724 110137 002631 6$: MOVB R1,DTADPB+11 :SET RANDOM TRACK IN DPB 
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GLOBAL SUBROUTINES SECTION 

58 017730 737 01161 JSR PC,RAND ZGENERATE RANDOM NUMBERS 

38 per ee O17 1 OL 1872 MOV $RP1_RI sPICK ONE FOR CYLINDER 

60 017740 701 17600 BIC #176600,R1 SREDUCE SIZE 10 <=1777 

6 ZBINARY SEARCH FOR FC<=R1<=LC 

64 017744 020137 002206 7$: CMP R1,LC sWHILE RI>LC DO RI=FC+(RI=FC)/2 

65 017750 003407 BLE 8$ 

66 017752 163701 002204 SUB FC,R1 

67 017756 000241 CLC 

68 017760 06001 ROR R1 

$9 017762 063701 002204 ADD FC,R1 

70 017766 000766 BR 7$ 

72 017770 020137 002204 8$: CMP R1,FC SWHILE RI<FC DO R1I=LC=(LC-R1)/2 

73 017774 002011 BGE 9$ 

74 017776 013?ve 002206 MOV LC,R2 

75 020002 01020 MOV R2,R3 

76 020006 160102 SUB R1,R2 

77 020006 000241 CLC 

78 020010 006062 ROR R2 

79 020012 160203 SUB R2,R3 

80 020014 010301 MOV R3, 

81 020016 000764 BR 8$ 

83 020020 010137 002632 9$: MOV R1,DTADPB+12 =;SAVE CYLINDER ADDRESS 

84 020024 000204 RTS RG RETURN 


SEQ 0078 
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61 sDPINT=0 IF INITIALIZATION 1S NOT ACTIVE ON THE DRIVE 

6¢ SDPINT<O IF INITIALIZATION IS IN PROGRESS 

64 02015 DPINT: .BYT :DRIVE 

65 8 B89 $00 ete [DRIVE 9 

66 0160 0 “BYTE DRIVE ; 

67 020161 0 “BYTE [DRIVE 

68 O16¢ 90 “BYTE SDRIVE & 

$B osolge =D Byte 6 AINE & 

71 020165 000 -BYTE DRIVE $ 

f 

ig ;TABLE OF PENDING DUAL PORT REQUESTS 

74 sDPROS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING hn THAT DRIVE 
o? :DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
7§ 020166 000 DPROS: .BYTE 0 sDRIVE 0 

78 02016 000 "BYTE 0 [DRIVE 1 

79 020170 000 “BYTE 0 [DRIVE : 

80 920171 000 “BYTE 0 [DRIVE 

81 0 172 000 “BYTE 0 “DRIVE 4 

82 02017 000 “BYTE 0 [DRIVE 5 

83 020174 000 “BYTE 0 [DRIVE 6 

8 026375 000 “BYTE 0 [DRIVE 7 

86 ; TRANSFER ty Awy S gee ogy 1 WORD) 

87 1S A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 

4 + OpB" OF THE I/0 MO EhAT TON. 

30 020176 00°00 TRNSWT: .WORD 0 

92 sSEARCHK WAIT ay" (SRCHWT=1 WORD) 

93 sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
94 THE het THAT a“ +g ye A SEARCH tarts FOR THE 1/0 
95 SREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 

%6 SEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT Br TOD FOR DRIVE 0. 
98 020200 000000 SRCHWT: .WORD 0 
100 RPO? DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
101 SACTDRV=O IF DRIVER IS INACTIVE 
108 SACTDRV>O IF DRIVER IS ACTIVE 
104 020202 000 ACTDRV: .BYTE 0 
16 3 SOF TWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 

107 :Aact STR=0 IF SOF TWARE TIMER ROUTINE IS INACTIVE 

108 ACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 
110 020203 000 ACTSTR: .BYTE 0 

112 
113 ; TIMEOUT TABLE (TIMER=8 WORDS) 

14 :THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 

116 020206 177777 TIMER: .WORD 1 sDRIVE 9 

117 020206 177777 "WORD 1 DRIVE 1 


¢ 7? 
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; W RWAY 
:DTUW=4N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
020226 177777 DTuw: .wORD =1 


AO R 

DRIVER 
118 020 19 177777 «WORD =1 sORIVE ¢ 

11 8 0212 177777 «WORD -1 sORIVE 

120 620214 177777 «WORD =] sORIVE 4 
121 020 6 177777 «WORD 1 sORIVE 5 

1 ¢ 020220 177777 WORD = =1 sORIVE § 

: 020222 177777 WORD 1 ; DRIVE 
1 ;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
\§ ;DTUW<O IF NO DATA TRANSFER UNDE 
12 
12 


CZRJLAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 34 


RPO 


DRIVER 
4 
‘ 
8 
9 
10 
{3 
18 
14 
15 OeheeS 
ig 020232 
18 020236 
19 020240 
20 020242 
020246 
21 020250 
$s 020254 
23 020260 
24 020264 
25 020266 
26 020270 
27 020272 
28 020276 
29 020502 
30 020304 
31 020306 
32 020312 
33 020316 
$e 020322 
36 020326 
020332 
020336 
020342 
020346 
020350 
37 020354 
38 020362 
39 020366 
40 020372 
41 020374 
42 
43 020376 
44 020402 
45 020402 
020404 
46 020406 
47 020412 
48 
49 


004737 
004737 


104441 


SACOG NNNNER NVR eas 


io 
NON 


004437 


105061 
012600 


000207 


oo 
—— 
Oo 


646 
676 


000240 


025176 
020026 
020204 


020414 


020136 


010700 


162306 


;RHXX/RPO7 DRIVER INITIALIZATION CODE 
sTHIS ROUTINE WILL DETERMINE WHICH RPO7 DRIVES ARE 
SAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
‘TO THE PROPER STATE FOR EACH DRIVE. 

[NOTE: THIS ROUTINE CALLS DRV 

CALL 

; JSR PC, RPINIT 

; RETURN 


[NOTE: THE "P* OR "L* CLOCK MUST BE STARTED 
RPINIT: JSR PC, SAVREG sSAVE RO = R5 
JSR PC *ST.CLK STURN ON THE CLOCK 
TSAVE THE PRESENT PROCESSOR STATUS 
TRAP  CSGPRI 
MOV RO,-(SP) 
MOV #PRIO5,RO 
CSSPRI 


JSR PC, CLRQUE 


;CHANGE THE PRIORITY TO 5 


sCLEAR ALL REQUEST QUEUES 
MOV ag LS sFIRST ADDRESS TO BE CLEARED 


MOV TIMER ,R2 sLAST ADDRESS TO BE CLEARED 
1$: CLR (R1)¢ 7 CLEAR 

CMP R1,R2 sARE WE DONE? 

BLO 1$ sBRANCH IF NO 

MOV #DTUW,R2 LAST ADDRESS 
2$% MOV #-1,(R1)+ INITIALIZE 

CMP R1,R2 ; DONE? 

BLOS 2$ 


;LOOP IF NO 
CLR DRVSTA sSET ALL DRIVES TO OFFLINE 
CLR DaVSTA+2 
CLR DRVSTA+4 
CLR DRVSTA+6 


sSETUP RHXX/RPO7 VECTOR 
MOV ris tS a 


MOV 3,2 
TRAP CSSVEC 
ADD #10,SP 
MOV #CLR,@RPCS2 sMASSBUS_INIT 
MOV DRVNO,R1 GET SELECTED DRIVE 
3$ JSR R4 ,DRVINT INIT THE DRIVE 
BR 4$ ;"DVA* NOT SET OR PARITY ERROR 
BR 5$ NORMAL RETURN 
4$: CLRB DRVSTACR1) :SET DRIVE STATUS TO OFFLINE 
5$: RESTORE THE PROCESSOR STATUS 


MOV (SP)+,RO 

TRAP C$SPRI 

JSR PC,RESREG sRESTORE RO = R5 
RTS PC :BYE-BYE 


sDRIVE INITILIZATION ROUTINE 


SEQ 0081 


C 
R 


1 
P 


R 
0 


J 
7 
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50 THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
51 AN RPO7. IF IT IS, A “READ@IN PRESET’ IS ISSUED AND FMT16 
2¢ 1S SET TO A “1'. THEN MOL, DPR, DRY, AND VV ARE CHECKED TO 
5 SINSURE THEY ARE ALL ON A “1"', DEPENDING ON THEIR STATE, 
26 — :DRVSTA IS SET TO THE PROPER CONDITION. 

56 : MOV #DRVNUM,R1 ;DRIVE NUMBER TO R1 

57 : JSR R4DRVINT SCALLED BY A J 

58 : RETURN1 TERROR OCCURRED (PARITY) 

8 : RETURN2 ZNORPAL RETURN 

61 F 

62 020414 010546 DRVINT: MOV R5,<(SP) 7SAVE_R5 

63 020416 112761 177777 020156 MOVB #-1,DPINT(R1) SET THE INITIAL FLAG 

64 020624 006301 ASL R 

65 020406 012761 003720 020204 MOV #2000. ,TIMER(R1) :SET A 2 SECOND TIMER 
66 020434 006201 ASR R1 sDRIVE ADDRESS 

67 020436 105061 020136 10$:  CLRB  DRVSTACR1) ZSTART DRIVE STATUS AS OFFLINE 
68 020442 105061 020146 CLRB = DRVTYP(R1) TCLEAR_THE DRIVE TYPE INDICATOR 
69 020446 010177 162216 MOV R1,aRPCS2 TSELECT A DRIVE 

70 020452 112777 000111 162200 MOVB #111,aRPCS1 [DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
71 020460 032777 010000 162202 BIT #BITI2,aRPCS2 ;NONEXISTENT DRIVE? 

72 020466 001403 BEQ ;NO=--BRANCH res. 
73 020670 004737 024632 JSR PC,SET.IE [G0 SET IE’ WITHOUT A “TRE 

2 020474 000513 BR 4% [LEAVE THIS ROUTINE 

76 020476 105061 020136 1$: CLRB sd DRVSTACR1) :SET DRIVE STATUS TO OFFLINE 
77 020502 032777 004000 162150 BIT WBIT11,aRPCS1 ;SEE IF DRIVE AVAILABLE 

78 020510 001004 BNE SBRANCH IF DV 

79 020512 105761 020156 TSTR = DPINT(R1) ZSOFTWARE TIME OUT 

80 020516 001347 BNE 10$ :BRANCH IF NO 

81 020520 000501 BR SOTHERWISE EXIT 

83 020522 004437 024254 22$: JSR R4.RD.RP ;READ THE DRIVE TYPE REG. 

B4 0205ec 10026 26 

85 020530 20726 8$ ;ERROR RETURN ADDRESS 

86 020532 012605 MOV (SP)+,R5 PUT DRIVE TYPE IN R5 

87 020534 112761 000005 020146 MOVB #5,DRVTYP(R1) SET RPO7 INDICATOR 

88 020542 022705 020040 CMP #26040,R5 [SINGLE PORT RPO7 

89 020546 001420 BEQ 2$ :BR IF YES 

90 020550 022705 024040 CMP #24040,R5 [DUAL PORT RPO7 

91 020554 001415 BEQ :BR IF Y 

92 020556 112761 000004 020146 MOVB #4,DRVTYP(R1) SET RPO7+ INDICATOR 

93 920564 022705 020042 CMP #26042,R5 TSINGLE PPRT RPO7+ 

94 020570 001407 BEQ SBRANCH IF SO 

95 020572 022705 024042 CMP #24042,R5 [DUAL PORT RPO7+ 

96 020576 001404 BEQ [BRANCH 

97 020600 112761 177777 020146 MOVB #=1,DRVTYP(R1) :SET INDICATOR TO "OTHER® 

98 020606 000446 BR 6$ EXIT 

190 020610 012746 000121 23: MOV #121,-(SP) :D0 A "READIN PRESET" 

101 020614 004437 024346 JSR R4,WRT RP 

102 020620 000000 0 

103 020622 020726 3 

104 020624 012746 010000 MOV #BIT12,<(SP) SET FMT16=1 

105 020630 004437 024346 JSR »WRT.RP 

106 020634 000032 32 


SEQ 0082 
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PO7 DRIVER 
107 020636 020726 8$ 
108 020640 437 024254 JSR R4,RD.RP ZREAD RPDS 
109 020644 000012 1 
110 020646 920726 8$ 
111 9699 1260 MOV (SP)+,R5 ZAND SAVE IT IN RS 
138 0652 100015 BPL 4$ ‘BRANCH IF ATA=0 
11 0656 116177 002736 162014 MOVB  ATABIT(R1),@RPAS ;CLEAR ATTENTION BIT 
114 020662 004437 024254 JSR R4,RD.RP sFIND OUT WHY ATA=1 
115 020666 000014 14 
116 0 9679 020726 8$ 
117 020672 006126 ROL (SP) r1S IT UNSAFE? 
118 020676 199004 BPL 4$ :BR IF NOT 
119 020676 112761 177777 020136 MOVB #-1,DRVSTA(R1) SET UNSAFE INDICATOR 
120 020704 000407 BR 6$ ZEXIT 
121 020706 005105 4$: COM R5 “CHECK MOL, DPR, DRY, AND VV 
122 020710 042705 167077 BIC #*C<BIT12!B1T08!B1T07'BIT06>, 
123 020714 001003 BNE ;BRANCH IF MOL, DPR, DRY, OR vv IS CLEAR 
124 020716 112761 000001 020136 MOVB #1,DRVSTA(R1) SET DRIVE STATUS TO ONLINE 
125 020724 005724 6$: TST (Ro) + :STEP OVER THE ERROR RETURN 
126 020726 7$: 
127 020726 006301 8$: ASL R1 sWORD INDEX 
128 020730 012761 177777 020204 MOV #-1,TIMER(R1)  ;STOP THE CLOCK 
129 020736 006201 ASR R1 ‘DRIVE ADDRESS 
130 020740 105061 020156 CLRB = DPINT(R1) 
131 020744 012605 MOV (SP)+,R5 SRESTORE RS 
132 020746 000204 RTS R4 TEXIT 
134 ;REQUEST PRE=PROCESSOR-HANDLES SUBSYSTEM REQUEST 
136 CALL 
138 ; JSR R4,RPO7 sCALL THE RPO7 DRIVER 
139 : PNTADR SADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
140 : RETURN ‘RETURN HERE IF QUEUE IS FULL 
141 : RETURN2 ‘RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
166 ; 1S AN ERROR CONDITION 
144 020750 RPO?: :SAVE THE CALLING STATUS 
145 020750 104440 TRAP  (C$GPRI 
020752 010046 MOV RO,-(SP) 
146 sDON'T ALLOW ANY RPO7 INTERRUPTS 
147 020754 013700 002646 MOV RPVEC+2,R0 
020760 104441 TRAP C$SPRI 
148 920762 112737 000001 020202 MOVB #1, ACTORV rSET “ACTIVE DRIVER" FLAG 
149 020770 004737 010646 JSR PC. SAVREG :SAVE RO - R 
150 020774 011402 MOV (Ro) R2 [PICKUP THE DRIVE PARAMETER BLOCK POINTER 
151 020776 005062 000016 CLR 16(R2) SCLEAR THE STATUS/ERROR INDICATOR 
152 021002 111201 MOVB (R2),R1 :PICKUP THE DRIVE NUMBER 
153 021004 105761 020136 TSTB  DRVSTACR1) [CHECK DRIVES STATUS 
154 021010 003006 BGT *BRANCH IF ONLINE 
155 021012 004437 020414 JSR R4,DRVINT :GO INIT. THE DRIVE 
156 021016 000421 BR 4$ ZERROR_ RETURN 
158 021020 105761 020136 TSTB —s ORVSTAC(R1) ‘1S DRIVE STATUS ONLINE? 
159 021024 003436 BLE : 
160 021026 105761 020166 1$: TSTB —s DPRQS(R1) SOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
161 021032 001016 BNE 5$ ‘BR IF YES 
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RPO7 DRIVER 
162 021036 010177 161630 MOV R1,aRPCS2 sSELECT THE DRIVE 
188 031060 Opus? 035800 JSR R4 . DRVQUE [PUT THIS REQUEST IN QUEUE 
164 021044 000452 BR SQUEVE IS FULL 
166 0 104g 105761 020126 2s: TSTB = ORVACT(R1) :1S THIS DRIVE ACTIVE? 
167 021052 001 43 BNE 8$ :BR IF YES 
168 021054 004737 021212 JSR PC,OPT [CALL THE OPTIMIZER 
169 021060 000440 BR BS 
170 02106 3$: 
171 02106 004737 022364 i$: JSR PC,CI7 :GO HANDLE THE PARITY ERROR 
\7@ 021066 000435 BR 8$ 
174 921070 004437 025300 5$: JSR R4 ,DRVQUE :PUT REQUEST IN QUEUE 
175 021074 000436 BR 9$ SQUEUE IS FULL 
177 021076 012777 000000 161612 MOV #0, aRPCc SWRITE THE CURRENT CYL REG 
178 021104 032777 000100 161546 BIT WBiT06,aRPCS1 IE BIT SET ? 
179 021112 001023 BNE YES 
180 021114 004737 024632 JSR PC,SET.IE [SET THE INTERRUPT 
181 021120 000420 BR By RETURN 
183 021122 105761 020136 6$: TSTB = DRVSTACR1) sSEE IF DRIVE OFFLINE OR UNSAFE 
184 021126 002412 BLT 7 *BR IF UNSAFE 
185 021130 012762 140000 006016 MOV #BIT15'BIT14,16(R2) SET OFFLINE ERROR INDICATOR 
186 021136 105761 020146 TSTB = ORVTYP(R1) sSEE IF OFFLINE OR NONEXISTENT 
187 021142 001007 BNE $ “BR IF OFFLINE 
188 021144 012762 100002 000016 MOV #BIT1S5‘!BIT01,16(R2) ;REPORT DRIVE NONEXISTENT 
189 021152 00040 BR 8$ :G0 10 EXIT 
191 021154 012762 110000 000016 7$: MOV #B1T15'BIT12,16(R2) ;DRIVE IS UNSAFE 
192 021162 004737 010790 8$: JSR C,RESREG sRESTORE RO - R 
193 021166 005724 TS! (RL) + :SETUP FOR NORMAL RETURN 
194 021170 000402 BR 10$ ‘FINISH UP, THEN EXIT 
195 021172 004737 010700 98: JSR PC ,RESREG TRESTORE RO = RS _ 
196 021176 005724 10$: 1ST (Ro)+ CORRECT THE RETURN ADDRESS 
197 021200 105037 020202 CLRB = ACTTDRV [CLEAR ACTIVE DRIVER’ FLAG 
198 SRESTORE PRIORITY 
199 021204 012600 MOV (SP)+,RO 
021206 104441 TRAP C$SPRI 
300 021210 000204 RTS R4 ;RETURN TO CALLER 
202 SOPTIMIZER=CALLED FOR A PARTICULAR DRIVE 
204 CALL 
205 : MOV #DRVNUM,R1 :DRIVE NUMBER TO R1 
206 : JSR PC,OPT ‘SETUP A COMMAND 
208 021212 004737 010646 OPT: JSR PC, SAVREG sSAVE RO = R5 
209 021216 104440 TRAP = C$GPRI 
021220 010046 MOV RO,-<SP) 
210 021222 146137 002734 020200 BICB  ATABIT(R1),SRCHWT :CLEAR LA SEACH FLAG 
211 021230 105061 020166 CLRB  — DPROS(R1) RESET THE PORT REQ FLAG *ee* 
212 021234 004737 025354 JSR PC,GETREQ [GET DPB’ POINTER OF REQUEST 
213 021240 005702 TST R2 [1S THERE A REQUEST IN QUEUE? 
212 021242 001472 BEQ 7$ [NO--BRANCH TO EXIT 
215 021244 010177 161420 MOV R1,aRPCS2 SLOAD THE DRIVE ADDRESS *#eeeee 
216 021250 012777 000111 161402 MOV #ii1,aRrPcs “CLEAR THE DRIVE 


Ive 


ss 


R 
7 021256 
8 021264 
0 Ost37e 
1 02197 
Pits 
1 

4 02131 
5 021314 
g 021522 
8 021524 
1332 
1 091542 
¢ 021544 
3 021350 
35 021352 
236 021356 
237 021360 
238 021364 

239 

240 021366 
241 021572 
“§ 021374 
244 021402 
245 021404 
246 021406 
267 021614 
248 021422 
249 021426 
250 021430 
251 021436 
252 021440 
253 021444 
254 021444 
021446 
255 021450 
256 021454 


SA ee RPO + FCTNL TEST 


sins 
sce 
a06r 


112761 
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000400 
020136 
025376 
1400 
0201 
110000 


000150 
000135 
021754 


020224 
021456 


021642 
177777 
047040 


000090 


022364 
000100 


024632 


010700 


161406 


000016 


000016 


000002 
000002 


108: 


18: 


2s: 
3$: 


4$: 


5$: 


6$: 
7$: 


8$: 


118, aRPDS 
py, 


“NO 
asitis: Sieite, -16cke) 


7 + 
#B1T15: 'B1T12, 16(R2) 


g150.2(R2) 
o155-2¢R2) 
PC,CI4 

8$ 


DTUW 
4 
PC,CI1 
8$ 


PC,CI3 
8$ 


#-1 ,DPROS(R1) 
R1,R5 


R 
Hie aaa te 


ou ifos.anPcst 
PC,SET.IE 
(SP)+,RO 
C$SPR 

PC ,RESREG 

PC 


DPR SET ? 
TO PROT REQUEST ,IF NOT 
1S DRIVE ONLINE? 
: YES=-BRANCH 
“REMOVE REQUEST FROM QUEUE 
“SET OFFLINE STATUS/ERRCR INDICATOR 
DRIVE UNSAFE ? 
TO EXIT IF NOT 
-SET UNSAFE STATUS/ERROR INDICATOR 


;BRANCH TO EXIT 
315 THE REQUEST FOR 1/0? 
TYES@-BR 


71S THE DIAGNOSTIC COMMAND ? 
[BRANCH IF §S 

sCALL THE —_ INITIATOR 
‘BRANCH TO EXIT 


sDATA TRANSFER UNDERWAY? 
Hf ee START A SEARCH 
[START A DATA TRANSFER 


START A SEARCH 
3G0 TO THE EXIT 


SEE IF 
7B 


SET PORT REQUEST INDICATOR 
[SET UP TO ADDRESS WORDS 

* CONVERT 10, WORD INDEX 

A 20. SECOND TIMER 
Et Port ET OUEST 


TPROCESS THE PARITY ERROR 
"IE" ALREADY SET 
i SET ee oe 
:SET "IE" WITHOUT A “TRE 
RESTORE PROC. STATUS 


ZRESTORE RO = RS 


CZRJLAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 35 Q 
RPO? DRIVER SEO COGS 
1 :COMMAND INITIATOR 
¢ sCALL 
4 : MOV #@DRVNUM,R1 sDRIVE NUMBER 
5 ; MOV #DPB,R2 ZADDRESS OF pe 
g ; JSR PC,Ci? 7C1?= C11,C13, OR C14 
3 Bap t 
x : SCIT=DATA TRANSFER 
9 3 sCI3=SEARCH REQUESTED BY DATA XFER 
10 ; SCIG=NOT DATA TRANSFER 
1 1456 004737 025376 C11: JSR PC ,POPQUE sREMOVE REQUEST FROM “DRIVES WAIT’ QUEUE 
8 1460 ov6 Hf sith MOV ne TANS [PUT REQ. IN TRANSFER WAIT QUEUE 
14 0 1466 19 03 MOV R2,R3 :DPB ADDRESS TO R3 
15 021470 013704 002660 MOV RPCS1,RG [RPCS1 ADDRESS 
16 021474 010177 16117 MOV R1, aRPCS2 SSELECT DRIVE 
17 021500 122762 000135 000002 CMPB ss #D JAG, 2(R2) :DIAGNOSTIC COMMAND ? 
18 021506 001011 BNE 1$ :BRANCH IF NOT 
19 021510 016246 000004 MOV 4(R2),=(SP) [GET THE RT NUMBER, PARAMETERS 
20 021514 052716 100000 BIS #OMD, (SP) [SET THE GIAGNOSTIC MODE BIT 
21 021520 004437 024346 JSR R4,WRT.RP ‘WRITE THE RPMR1 REG 
3¢ 021524 oo0024 24 
021526 022364 (17 ;RETURN HERE ON ERROR 
26 021530 000432 BR 2$ ‘LOAD THE COMMAND AND EXIT 
$e 021532 062703 000004 1$: ADD #4 ,R3 ZDESIRED WORD COUNT 
27 021536 062704 000002 ADD #2.RG sRPWC ADDRESS 
8 021542 012324 MOV (R3)+ (RG)+ [LOAD WORD COUNT 
9 021544 01¢326 MOV (R3)+,(R4)+ SLOAD BUFFER ADDRESS 
0 021346 012346 MOV (R3)+,=(SP) [LOAD SECTOR AND TRACK 
31 021550 004437 024346 JSR R4,WRT.RP [CALL THE LOAD(WRITE) ROUTINE 
3 021554 000006 6 SINDEX OF REGISTER TO LOAD 
3 021556 022364 (17 [RETURN HERE ON ERROR 
34 021560 012346 MOV (R3)4,-(SP) sLOAD CYLINDER ADDRESS 
35 021562 004437 024346 JSR R4,WRT.RP 
36 021566 000034 34 
37 021570 022364 C17 :RETURN HERE ON ERROR 
38 021572 032712 100000 BIT #B1T15, (R2) sMAINTENANCE MODE FLAG BIT SET ? 
39 021576 00140 BEQ 28 ‘BRANCH IF NOT 
40 021600 005046 CLR =(SP) [SET DMD BIT IN RPMR 
41 021602 052716 100000 BIS #B1T15, (SP) [SET DMD BIT ONLY THE REST BITS MUST BE 0 
4 021608 004437 024346 JSR R4,WRT.RP [WRITE TO RPMR 
43 021612 000024 24 
44 921614 022364 (17 ;RETURN HERE ON ERROR ae 
45 021616 016246 000002 2s: MOV 2(R2),=(SP) SLOAD "COMMAND+GO"', "'A17&A16"", AND “'PSEL 
46 021622 004437 024346 JSR R4,WRT.RP 
47 021626) 900000 0 
48 021630 022364 C17 ;RETURN HERE ON ERROR 4 
49 021632 010137 020224 MOV R1,DTUW ‘SET ‘DATA TRANSFER UNDERWAY 
30 021636 000137 022300 JMP c1§ 
52 021642 013704 002660 C13: MOV RPCS1,R4 :RPCS1 ADDRESS 
53 021646 010177 161016 MOV R1,aRPCS2 sSELECT DRIVE 
54 021652 016246 000012 MOV 12(R2),-(SP) ‘DESIRED CYLINDER ADDRESS 
58 021656 004437 024346 JSR R4,WRT RP 
56 021662 000034 34 
57 021664 022364 


(17 RETURN HERE ON ERROR 


C7R 
ae 


DRIVER 
58 021 
55 oslers 
60 0 197 
61 021 
o¢ 17 
6 171 
64 02171 
65 ? 1714 
66 1730 
67 021724 
68 021726 
+4 8 1730 
0 021730 
71 17 
i; 1740 
73 021742 
74 021744 
75 021752 
76 
77 021754 
78 021760 
75 861788 
80 021770 
81 021774 
82 021776 
83 022002 
84 022006 
85 022010 
a6 022012 
88 022014 
89 022020 
90 022022 
91 ossoes 
92 022032 
93 022034 
3s 022036 
96 022040 
97 022044 
98 022046 
99 022052 
100 022054 
101 $5608 
102 02206 
103 855090 
104 022070 
105 022072 
108 
107 022074 
108 022100 
109 022102 
110 Os5is8 
111 02211 
112 022114 
113 022116 
114 022122 


AO RPO7 FCTNL TEST 


sa 


06 
4 


S 
Wo 
oS 
oO 


o-oo Qemue 


oN 
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Ono 
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“N VIWO 
+ 
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00010 MOV 10(R2) , (SP) 
Shad = pie toe 
C17 
100000 000000 BIT #B1T15,0(R2) 
BEQ 1$ 
CLR -(SP) 
100000 BIS #81115, (SP) 
024346 ae" RG, WRT .RP 
ms (17 
000131 ; MOV #SEARCH,<(SP) 
02434 '' R4,WRT.RP 
C17 
002734 020200 BISB ATABIT(R1),SRCHWT 
BR C15 
002660 C14: RPCS1,R4 
160704 MOV R1,aRPCS2 
000002 MOVB 2(R2),R3 
000131 — #SEARCH,R3 3 
000010 MOV 10(R2),-(SP) 
024346 = R4,WRT RP 
(17 
BR 2$ 
000195 1$: cape #SEEK,R3 
000012 2$: MOV 12(R2),-(SP) 
024346 i” R4,WRT.RP 
C17 
BR C16 
000115 3$: CMPB #OFFSET,R3 
BNE 4 
024254 35" R4,RD.RP 
C17 
000001 MOVB 1(R2), (SP) 
024346 sk R4,WRT RP 
C17 
BR C16 
000107 4$: CMPB WRECAL,R3 
000117 soe #RTIC,R3 
000147 53: oe #SETFORM,R3S 
024254 43° R4,RD.RP 


7 


THE SECTOR AND TRACK ADDRESS 
;LOAD DESIRED TRACK & SECTOR 


RETURN HERE ON ERROR 
sMAINTENANCE MODE ? 
;BRANCH IF NOT 


;SET DMD BIT ONLY,THE REST BITS MUST BE 0 


RETURN HERE ON ERROR 
START A SEARCH 


RETURN HERE ON ERROR 
sSET “"SEARCH WAIT’’ KEY 


;RPFS1_ ADDRESS 

SELECT DRIVE 

PICKUP THE REQUESTED COMMAND 
IS IT A SEARCH COMMAND? 

BRANCH IF NO 

LOAD DESIRED TRACK & SECTOR 


RETURN HERE ON ERROR 
:GO LOAD CYLINDER 


z1S IT A SEEK COMMAND 
;BRANCH IF N 
sLOAD DESIRED CYLINDER 


;RETURN HERE ON ERROR 


71S 44 I~ OFFSET’ REGISTER CHANGE COMMAND ? 


2BR 
MERGE THE OFFSET VALUE INTO RPOF 
3;BUT DON'T CHANGE THE UPPER 
RETURN HERE ON ERROR 

sBYTE WHEN LOADING THE 

REGISTER (RPOF) 


RETURN HERE ON ERROR 
3G0 START THE COMMAND 


71S IT A “‘RECALIBRATE*’ COMMAND? 
sBRANCH IF YES 

31S IT A RETURN TO CENTER? 
sBRANCH IF Y 

:1S IT A “’SET FORMAT'’ COMMAND? 
;BRANCH IF 

sREAD THE OFFSET REGISTER 


SEQ 0087 


CZRJLAO RPO7 FCTNL TEST 


RPO 


DRIVER 
115 124 
118 126 
11 134 
118 022140 
119 142 
131 144 
122 02214 
138 099159 
ise 022754 
136 022160 
127 02 1s8 
128 0221 
94 OSS 308 
730 022200 
131 022202 
13 022204 
133 022210 
134 022212 
135 022220 
136 
137 022222 
138 022226 
139 022230 
140 022234 
141 022240 
142 022242 
143 022244 
144 
145 022246 
146 022250 
147 022254 
148 022256 
149 022260 
150 022264 
151 022272 
152 022276 
153 
154 022300 
155 022302 
156 022310 
157 022312 
158 922320 
159 
160 022322 
161 022330 
16¢ 022332 
163 022334 
164 022340 
165 022544 
166 022346 
167 022350 
168 022352 
169 022356 
170 022360 
171 022362 


NWYWEONYIN WWW 


soo CSS SSS ono 


000207 
006301 
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C17 
990001 000001 MOVB 1(R2),1(SP) 
4346 sr R4,WRE RP 
C17 
th 12$ 
000141 6$: CMPB ss @GE TREG,R3 
BNE 10$ 
000006 7$: MOV 6(R2),R3 
000010 022176 MOVB 10(R2),9$ 
000011 MOVB = 11(R2)-RS 
024254 8$: JSR R4,RD.RP 
9$: 0 
C17 
MOV (SP)+, (R3)+ 
022176 CMP 9$,R5 
BEQ 12$ 
000002 022176 ADD #2,9% 
BR 8$ 
000145 10$: CMB #MAINT,R3 
100000 MOV #DMD,-(SP) 
024346 4s R4,WRT RP 
C17 
BR 12$ 
11$: MOV R3,-(SP) 
024346 gsr R4-WRT.RP 
C17 
025376 12$: JSR PC ,POPQUE 
000200 000016 BIS #BiT07,16(R2) 
024472 JSR PC, SVRHXX 
13$: RTS PC 
C15: ASL R1 
001750 020204 MoV #1000. TIMER(R1) 
000001 020126 MOVB #1, DRVACT(R1) 
RTS PC 
100000 000000 C16: BIT #B1T15,0(R2) 
BEO i$ 
CLR -(SP) 
100000 BIS #81115, (SP) 
024346 JSR R4,WRT RP 
(17 
1$: MOV R3,-(SP) 
024346 sr R4-WRT.RP 
(17 
BR C15 


RETURN HERE ON E 
[COMBINE “FMT16", EC 
[LOAD "'FMT16", “ECI’ 


RETURN HERE ON ERROR 


I**, AND "HCI" 
» AND/OR "HCI". 


71S IT A “GET REGISTER’’ COMMAND? 
;BRANCH IF NO 

POINTS TO 1ST ADDRESS OF WHERE 
:TO PuT My REGISTER(S) 


ERROR 
GET THE CONTENTS OF RHXX//RPO7 REG. 
sLAST REG. BEEN READ? 

GET OUT IF YES 

INCREASE THE INDEX BY 2 

;LOOP--MORE TO READ 

31S IT A “SELECT MAINTENANCE*’ COMMAND? 
BRANCH IF NOT 

SET DIAGNOSTIC MODE COMMAND 

sWRITE THE MAINTENANCE REGISTER 
RETURN HERE ON ERROR 

sEXIT 


;LOAD THE COMMAND 


INDEX OF REG. TO WRITE 
RETURN HERE ON ERROR 


[SET THE ‘DONE’ BIT 
TYES=-GO SAVE THE REGISTERS 
SRETURN TO USER 

:SET A ONE SECOND TIMER 


SET THE DRIVE ACTIVE 
RETURN TO THE USER 


sMAINTENANCE MODE ? 
BRANCH IF NOT 


[SET DMD BIT ONLY 
*THE REST BITS MUST BE 0 


RETURN HERE ON ERROR 
;LOAD THE COMMAND 


INDEX OF REG. TO WRITE 
RETURN HERE ON ERROR 


SEQ 0088 


Ll 7 
CZRJLAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 35-3 Q 9 
RPO? DRIVER : S€8 C08 
178 935882 o0s702 is wu 8 ANYTHING IN QUEUE ? 
: sANYTHIN UEUVE ? 
174 66 001001 BNE Be ‘BRANCH IF QUEUE IS THERE 
175 0 29 909207 RTS PC ;QTHERW x 
176 02237 12762 104000 000016 2%: MOV #B1T15'B1T11, 16(R2) zSET ‘PARITY’ ERROR INDICATOR 
178 022400 012746 000111 C178: MOV #111,<(SP) :D0 A “DRIVE CLEAR" 
179 022404 peed? 24346 JSR R4,WRT RP 
180 0 419 00000 
181 022412 02245 C18 ;RETURN HERE ON ERROR 
182 022414 004737 025260 28: JSR PC,EMPTYO SEMPTY THE QUEU 
183 022420 105061 9201 4 CLRB = DPROS(R1) [CLEAR THE PORT REQUEST FLAG 
184 022424 1 3961 020126 CLRB = DRVACT(R1) ‘DRIVE IS IDLE 
185 022430 020237 020176 CMP R2, TRNSWT [IF THIS DRIVE HAD AN I/O REQUEST 
186 0224 901005 BNE 1$ [IN PROGRESS CLEAR ALL OF THE FLAGS 
187 022436 00503 020176 CLR TRNSWT 
188 022442 012737 177777 020224 MOV #-1,DTUW 
189 022450 000207 1$: RTS PC 
191 022452 004737 010646 C18: JSR PC, SAVREG sSAVE RO = RS 
19@ 022456 005001 CLR R1 
193 022460 005003 CLR R3 
194 022462 105761 020126 1$: TSTB = DRVACT(R1) ZDRIVE ACTIVE? 
195 022466 001003 BNE 22$ [BRANCH IF IN ACTIVE 
196 022470 105761 €.0166 TSTB DPROS(R1) ;PORT REQUEST 
197 022474 001443 BEO 5$ [BRANCH IF NOT 
198 022476 013702 020176 22$: MOV TRNSWT,R2 [GET THE ‘TRANSFER WAIT’’ QUEUE 
199 022502 020137 020224 CMP R1,DTUW sDID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 
200 022506 001402 BEQ 2$ SBRANCH IF YES 
201 022510 004737 025354 JSR PC,GETREQ :GET THE DPB POINTER 
202 022514 00570¢ 2$: TST R2 SQUEUE ENTRY FOR DRIVE ? 
203 022516 00141 BEQ 4$ :BR IF NOT 
204 022520 032777 010000 160142 BIT #B1T12,aRPCS2 ;*NED' SET ? 
205 022526 001404 BEQ a :BR IF NOT 
206 022530 012762 100002 000016 MOV WBIT15!BIT01,16(R2) :SET "DRIVE NON-EXISTENT’ INDICATOR 
307 022536 000403 BR 4$ CONT [NUE 
209 022540 Og 766 102000 000016 3$ MOV #B1T15'BI1T10,16(R2) ;SET “‘NON-CLEARABLE PARITY’ ERROR INDICATOR 
210 022546 012763 177777 020204 4$ MOV #-1,TIMER(R3)  ;STOP THE TIM 
211 022554 105061 020126 CLRB sd DRVACT(R1) [SET DRIVE ACTIVE’ TO IDLE 
212 022560 105061 020166 CLRB DPRQS(R1) sCLEAR PORT REQUEST FLAG 
213 022564 0201357 020224 CMP R1,D0TUW 31S THIS DRIVE SETUP FOR A TRANSFER 
214 022570 001005 BNE 5$ [BR IF NOT 
215 022572 012737 177777 020224 MOV #-1,DTUW SRESET THE INDICATOR 
21 022600 005037 020176 CLR TRNSWT [CLEAR THE TRANSFER QUEUE 
217 022604 005201 S$: INC R1 ‘MOVE TO THE NEXT DRIVE 
218 022606 062703 000002 ADD #2,R3 
219 022612 042701 177770 BIC #°C7,R1 
220 022616 001321 BNE 1$ sBRANCH IF MORE DRIVES 
221 022620 012737 177777 020224 MOV #-1,DTUW [NO DATA TRANSFERS UNDERWA 
322 022626 005037 020176 CLR TRNSWT [CLEAR THE ‘TRANSFER WAIT’ QUEUE 
223 022632 004737 025176 JSR PC, CLRQUE SCLEAR ALL OF THE REQUEST QUEUES 
324 022636 012777 000040 160024 MOV #CLR,aRPCS2 *DO A MASSBUS INIT. 
35 022644 000406 BR 7$ CONTINUE 
35s 022646 004737 025260 6$: JSR PC,EMPTYO SCLEAR THE DRIVE'S QUEUE 
228 022652 105061 020136 CLRB = DRVSTACR1) [SET DRIVE TO OFFLINE 


mM 7 


LER IL AD RPO? FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 35-4 SEQ 0090 
RPO? DRIVER 
9 656 105 014 CLRB DRVTYP(R1) sCLEAR THE DRIVE TYPE INDICATOR 
$ p 66 ope 187 0 4 33 7$: JSR PC,SET.IE sSET ““IE’* WITHOUT TRE” 
1 4737 01070 JSR PC,RESREG sRESTORE RO = R 
32 022672 000207 RTS PC 7 RETURN 


1 
022674 
é b59702 
? 0227 
8 02271 
9 022716 
10 022720 
11 022724 
\¢ 022726 
15 022752 
14 0227 
15 3 74 
2274 
16 
17 
18 
19 022744 
20 022750 
$3 022756 
4 022760 
2 055768 
24 022770 
25 022774 
26 023000 
27 025006 
28 023012 
9 023016 
0 023020 
1 023022 
2 025024 
33 023026 
34 023032 
35 023040 
36 025042 
37 023050 
38 023054 
39 023056 
40 023060 
$3 02306 
43 023066 
44 923074 
45 023076 
46 023104 
47 023110 
48 023114 
49 023122 
50 023150 
51 
52 
55 
54 023132 
55 023156 
56 023140 
57 0235144 


o=— 
Sls 
CNS 
Wo 


024254 


024472 
000135 


002734 
025354 


021212 


157540 
024254 


020202 


020224 
020204 


000016 


000002 
157626 
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; INTERRUPT SERVICE ROUTINE 


ISRV: MOVB #1,ACTORV 
INC ISRCNT 
JSR PC, SAVREG 
MOV DTUW,R1 
BLT 1$ 
JSR PC,1D 
BR 2$ 
1$: JSR PC,SC 
2$: JSR PC -RESREG 
CLRB sss AC TORV 
L10012: 
RTI 
; TRANSFER DONE ROUTINE 
1D: CLRB = DRVACT(R1) 
MOV #-1,0TUW 
ASL R 
MOV #-1, TIMER(R1) 
ASR 
MOV TRNSWT,R2 
CLR TRNSWT 
BIS #B1T07,16(R2) 
MOV R1,aRPCS2 
gsr R4.RD.RP 
C17 
ROL (SP)+ 
BMI 3$ 
JSR SVRHXX 
CMB wise. 2(R2) 
MOVB  ATABIT(R1),aRPAS 
1$: JSR PC, GETREQ 
TST R2 
BEQ 2$ 
JSR PC,OPT 
BR SC 
2$: MOV #113, aRPCS1 
BR SC ich 
3$: BIS #81115:B1106, 16(R2) 
JSR PC EMP 
JSR 
MOV aeOttt MaRPCSI 


MOV #113,aRPCS1 
sc 


SPECIAL CONDITION ROUTINE 

SC: MO\'B @RPAS ,R3 
BNE 

- R4,RD.RP 


3SET fhetel | al FLAG 
COUN i" NTERRUPTS 


SAVE R RS, 

eet “DATA TRANSFER UNDERWAY’ INDICATOR 
:BR ANCH IF NO DATA TRANSFER UNDERWAY 
CALL TRANSFER DONE 


ZEXIT 

:CALL SPECIAL CONDITIONS 
ZRESTORE R . 
ECLEAR "ACTIVE DRIVER" FLAG 


SET DRIVE ACTIVE INDICATOR TO IDLE 
[NO DATA TRANSFERS UNDERWAY 


CANCEL TIMEOUT 


:GET ‘‘DPB’’ ADDRESS FROM THE 
; TRANSFER WAIT QUEUE--CLEAR QUEUE 


om 
SSELECT THE DRIVE 
T TRANSFER ERROR(TRE=1)? 


RETURN HERE ON ERROR 


R IF YES 
i VESH<SAVE THE REGISTERS 
z1E NM IF-NOT COMMAND ? 


;BRANCH NO 

neste THE ATA BIT 
;GET DPB POINTER 
SENTRY Ae DRIVE ? 


BR IF os 
sCALL OPTIMIZER 
;CHECK OTHER DRIVES 


:RELEASE THE DRIVE 
FOR OTHER DRIVES 
SET DATA ERROR FLAG, 
sEMPTY THE "DRIVE'S WAIT’ QUEUE 
:SAVE THE, RAXKZ RPO? REGISTERS 
TISSUE A RELEASE TO THE DRIVE 
sCHECK FOR OTHER DRIVES 


sREAD “RPA 
[BRANCH IF Any *ATA® BITS SET 
SREAD CONTROL AND STATUS REGISTER 


SEQ 0091 


CZRILAO RPO7 FCTINL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 36-1 Q 
RPO? DRIVER ; S80 CONE 

8 02314 26452 C18 RETURN HERE ON ERROR 

9 6 1 8 9 1 § ROLB (SP)+ 71S eet 

60 0231 1004 BM] 1$ [VES, NO DRIVES TO CHECK 

61 023154 4 NOP 

6¢ 9 1 4 Pp 

6 1€ 4 NOP 

6 0 16 3 024632 . ssh PC. SET.1E :SET INTERRUPT ENABLE 

64 8 1 T44 23: CLR -(SP) SPROCESS ALL DRIVES THAT HAVE 

67 023172 (11 16 MOVB RS, (SP) SAN ATA'=1 

68 023176 012703 000001 MOV #i.R 

$9 9 99 901 CLR 1 

C 0 16 SC3: BIT R3, (SP) sATA=1? 

71 0232046 00100 BNE sc§  YES=-BRANCH 

2 023206 005201 SC4: INC R1 :MOVE TO THE NEXT DRIVE 

73 0 ; 10 106 03 ASLB ss RB 

74 023212 00137 BNE $C3 :BRANCH IF MORE TO CHECK? 

75 0 3 14 005726 TST (SP) [CLEAN OFF THE STACK 

16 055 16 600207 - RTS PC SRETURN TO USER 

78 023220 105761 020166 1$: TSTB  =—s-d DPROSAR1) :PORT REQUEST OUTSTANDING ? 

79 023224 001402 BEQ 2s :BR IF NOT 

80 Oe3¢ $ 0001 023614 JMP $C13 :START THE OUTSTANDING COMMAND 

B1 023232 105761 020136 23: TSTB = DRVSTACR1) ;CHECK THE DRIVE STATUS 

8¢ 023236 003011 BGT 5$ sBRANCH IF ONLINE 

8 Og3240 004737 025354 JSR PC,GETREQ :GET DPB POINTER 

84 0 3244 004737 024472 JSR PC, SVRHXK [SAVE THE RHXX/RPO7 REGISTERS 

85 023250 004737 023530 JSR PC,SC12 [SAVE RPDS, RPER1, RPER3, AND RPER2 
86 sALSO CO A DRIVE INIT (DRVINT) 

87 023254 105761 020136 TSTB = DRVSTACR1) :DID DRIVE COME ONLINE? 

88 023260 003405 BLE 6$ :NO---BRANCH 

89 023262 105761 020126 5$: TSTB = DRVACT(R1) [DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
90 023266 001035 BNE SC6 ‘BR IF EIT 

91 623270 004737 023530 JSR PC,SC12 SSAVE RPDS, RPER1, RPER3, AND RPER2 
4 sALSO DO A DRVINT 

93 023274 105761 020136 6$: TSTB = DRVSTA(R1) :CHECK ON DRIVE'S STATUS 

94 023300 100421 BMI 7$ “BR IF UNSAFE 

95 023302 006301 ASL R1 

96 023304 006301 ASL R1 

97 023306 006301 ASL R1 

98 023310 016105 020032 MOV RPSTUD+4(R1) RS 

99 023314 006201 ASR R1 
100 023316 006201 ASR R1 
101 023320 676201 ASR R1 
102 023322 032705 020000 BIT #B1T13,R5 ZADDRESS PLUG CHANGED 
10 023326 001012 BNE ‘BRANCH IF SO 
104 023330 012746 000111 MOV #111,-(SP) [DRIVE CLEAR 
165 023334 004437 024346 JSR R4,WRT RP [WRITE THE COMMAND INTO R®CS1 
106 023340 000000 0 sREGISTER INDEX 
107 023342 023410 $c8 *PARITY EXIT ADDRESS 
108 023344 011605 7$: MOV (SP),R5 [PICKUP (RPAS) BEFORE THE ERROR CALL 
109 023346 000240 NOP 
110 023350 000240 NOP 
Wt 023352 000715 BR $C4 :GO CHECK FOR MORE ATA'S 
138 023354 000240 8$: NOP 
114 023356 000240 NOP 


C 
R 


115 623360 
116 

118 oo886e 
3 8 $3 
120 74 
121 023400 
1 ¢ 023404 
125 023410 
ise 0 14 
i Sos 
159 093056 
1s8 

129 Stok 
iy Bee 
13 it ren 
133 023440 
134 023444 
135 

136 023452 
137 023454 
138 023460 
139 023466 
140 023472 
141 023500 
142 023506 
143 023510 
144 023516 
145 023520 
146 023524 
147 

148 023530 
149 023534 
150 023536 
151 023540 
152 023542 
153 023550 
154 023556 
155 023564 
156 02257< 
157 023574 
158 023576 
159 023600 
160 02%604 
161 075606 
16¢ 

163 023610 
164 023612 
165 

166 023614 
167 

168 

169 023614 
170 023620 
171 023626 


000712 


oy 


J 


oo ooo 
So Ss 
os 

NSN NN 


020204 


020200 


006016 


157176 
020200 


020204 


157050 


$C8: 


2$: 


SCl2: 


1$: 
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¢ 8 


SEQ 0093 

$Cé sCHECK FOR MORE DRIVES 
R1 :SETUP TO ADDRESS WORDS 
#-1,TIMER(R1) STOP THE TIM 
R1 SRESTORE THE DRIVE ADDRESS 
PC,GETREQ [GET THE DPB POINTER FROM THE QUEUE 
R1.aRPCS2 SSELECT DRIV 
scfi sPROCESS THE SEARCH 
DRVACT(R1) t1S DRIVE IDL 
1$ :YES--BRANCH 
PC,GETREQ GET DPB POINTER 
PC.CI7 SPROCESS THE PARITY ERROR 
2$ : CONTINUE 
PC,C17B :PROCESS THE UNCORRECTABLE PARITY ERROR 
scé [CHECK MORE DRIVES 
DRVACT(R1) -ST DRIVE IDLE 
ATABIT(R1),SRCHWT ;DOING A SEARCH OPERATION FOR 

“AN 1/0 COMMAND? 


:BRANCH IF YES 
REMOVE REQUEST FROM QUEUE 


PC ,POPQUE 
#B1T07,16(R2) ;SET ‘DONE’ BIT 
PC ,SVRHXX 


»SVRH SYES==SAVE ALL OF THE RHXX/RPO7 REG'S 
ATABIT(R1),@RPAS ;CLEAR ATTENTION BIT 
ATABIT(R1) .SRCHWT sCLEAR IMPLIED SEEK SET 
:WORD INDEX 
#-1,TIMER(R1) STOP CLOCK 
R1 SRESTORE R1 
PC,OPT :START A REQUEST 
a4 :CHECK FOR MORE DRIVES 
Rt .aRPCS2 sSELECT DRIVE 
R1 


ARPERS.RPSTUO+6 

; 

R4 ,DRVINT sINIT. THE STATE OF THE DRIVE 
1$ STAKE ERROR EXIT 

PC RETURN 

(SP)+ sCLEAR THE STACK 

Ya: [PROCESS THE PARITY ERROR 
R1 sSETUP TO ADDRESS wORDS 
#-1, TIMER(R1) :STOP THE TIMER 

R1,aRPCS2 [SELECT THE DRIVE 
ATABIT(R1),@RPAS ;CLEAR THE ATTENTION BIT 
DPINT(R1) sINITIALIZING THE DRIVE ? 


CZRJLAO RPO7 FCTINL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 36-3 SEQ 0094 
RPO? DRIVER . 

172 0 2 001424 BEQ 2$ 78R IF NOT 

158 0 #2 105061 020156 CLRB DPINT(R1) CLEAR THE INIT INDICATOR 

174 023640 004437 020414 JSR R4,DRVINT :GO INIT THE DRIV 

175 0 4 900240 NOP DUMMY PARITY ERROR RETURN 

176 0 oeg 1 3 61 020136 TSTB DRVSTACR1) DRIVE ONLINE ? 

177 023652 00 Ore BGT 2$ 3BR IF YES <= START ORDER 

178 023654 00570 TST R2 SQUEUE ENTRY FOR THE DRIVE 

179 023656 ise BEQ 7BR IF NOT 

180 0 0 0047 025354 JSR PC ,GETREQ >GET DPB ADDRESS 

181 0 706% 05276¢ 140000 000016 BIS #BIT15'B1T14,16(R2) ;INFORP USER THAT DRIVE OFFLINE 

183 OS8e76 Ooersy 098376 seh OéESPoPGuE s REMOVE THE. QUEUE 

ine $3 3568 000411 BR 3$ 

186 023704 032777 000400 156760 28: BIT #B1T8,aRPDS zDVA SET ? 

i 023712 001003 oy .? sSET THEN CALL OPT 

189 : MOV #60000. ,TIMER(R1);SET A 60. SECOND TIMER 

190 $ ASR R1 

191 023714 004737 024632 JSR PC,SET.IE 

192 023720 000402 BR 3$ 

194 023722 004737 021212 4$: JSR PC,OPT START THE PENDING REQUEST 

195 023726 000137 023206 3$: JMP scé “PROCESS OTHER DRIVES 

197 :/RPO7 TIMER ROUTINE 

198 3 CALL 

199 : MOV @TIME ,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 

soy 3 JSR PC, RPTMR CALL RPO7 TIME ROUTINE 

202 023732 005737 020202 RPTMR: TST ACTDRV CHECK "‘ACTDRV & ACTSTR" 

263 023736 001031 BNE 4$ s1f NON ZERO EXIT 

204 023740 Nieree 000001 020203 MOVB #1,ACTSTR SET "‘ACTSTR'’ 

205 023746 004737 010646 JSR PC, SAVREG SAVE RO = RS 

206 023752 005001 CLR R1 :START WITH DRIVE 0 

207 023754 005003 CLR R3 

208 023756 005763 020204 1$: TST TIMER(R3) 1S THE TIMER RUNNING? 

209 023762 002406 BLT :BRANCH IF NO 

210 023764 166663 000002 020204 SUB 2(SP),TIMER(R3) ;COUNT THE INTERVAL 

211 023772 003002 BGT :BR IF NO SOFTWARE TIMEOUT 

12 023774 004737 024026 JSR PC,STO sCALL SOFTWARE TIMEOUT ROUTINE 

213 024000 005201 2$: INC R1 MOVE TO NEXT DRIVE 

214 024002 005723 TST (R3)+ 

215 024004 022701 000010 CMP #8.,R1 OUT OF DRIVES? 

216 024010 003362 BGT sBRANCH IF NO 

217 024012 004737 010700 3$: JSR PC, ,RESREG sRESTORE RO = R5 

218 024016 105037 020203 CLRB ACTSTR sZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 

219 024022 012616 4$: MOV (SP)+, (SP) sADJUST THE STACK 

$30 024024 000207 RTS PC sRETURN 

$56 :SOFTWARE TIMEOUT ROUTINE 

ech SNOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 

$32 3 OR GREATER 

227 sCALL: $10 

228 : MOV #DRVNUM,R1 :DRIVE NUMBER 


—— 
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mrorr 
LAAN 
VISWN—oOwo 


024026 
0240 : 
8 40 
0540 
23 036042 
238 024046 
239 024050 
240 024054 
241 0 rete 
seg 02406 
243 024064 
244 024072 
245 024076 
246 024100 
247 024102 
248 
249 024110 
250 024112 
251 024120 
252 Beeies 
2€3 024130 
254 024134 
255 026142 
256 024144 
257 024150 
258 024154 
259 024162 
260 024166 
261 024170 
262 024172 
263 024200 
264 024202 
265 024210 
266 024214 
267 024220 
268 024222 
269 024224 
270 024232 
271 024236 
$i 024242 
72 024244 
274 024246 
275 024250 
276 024252 
277 
278 
279 
280 
281 
282 
283 
284 
285 


oooo-o— 


ooo-co00 oo 
NINN AS NINE NON NIN ON @NNINIAOAAO 


an 
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: JSR PC,STO 3CALL 
3 RETURN 
STO MOV R1,-(SP) sSAVE R1-R4 
MOV Pat +4 : 
MOV R3,-(SP) : 
MOV R4,-(SP) : 
020176 MOV TRNSWT,R2 ‘PICKUP THE TRANSFER QUEUE 
020224 CMP R1,D0TUW S TRANSFER UNDER WAY ON THIS DRIVE 
BEQ 1$ ‘BRAN CH IF SC 
020156 TSTB DPINT(R1) :DRIVE INITIALIZE ? 
BNE 2s CH IF SO 
020166 TSTB DPRQS(R1) ‘PROT REQUEST ? 
BNE BRANCH IF SO 
177777 020204 MOV #-1,TIMER(R3)  ;STOP THE TIMER 
025354 JSR PC,GETREQ GET THE QUEUE 
ars Re EXIT IF NONE 
101000 000016 BIS WBIT15!BIT9,16(R2) TIME OUT OR LOST INTERRUPT 
a 5 -_ 30N HOUSE KEEPING COMMANDS 
“01000 000016 1$: BIS SB1115°8119, 16(Rd5 TIME OUT ON DATA TRANSFER 
024472 JSR PC,SVR READ AL Li REGISTER S 
020126 CLRB DRVACTRTD sDRRIVE SET TO IDLE 
020176 CLR RNSWT CLEAR DATA TRANSFER QUEUE 
177777 020224 nov a, ,DTUW sCLEAR THE TRANSFER DRIVE # 
020156 2$: CLRB DPINT(R1) CLEAR THE INITIALIZE INDICATOR 
920136 CLRB DRVSTA(R1) 3SET UNIT 10.0 LINE 
177777 020204 MOV #-1,TIMER(R3)  ;sSTOP THE TIM oh 
025354 JSR PC,GETREQ GET THE DPB ADDRESS 
i Re ANYTHING IN QUEUE 
140000 000016 gis #BIT15'BIT14, -16ch2) iv HE USER DRIVE NOT AVAILABLE 
177777 , 020204 MOV #-1, TINERCRS) STOP THE TIMER 
020166" CLRB DPROS(R SCLEAR THE PORT REQUEST INDICATOR 
025354 JSR Pre eE TREO [GET DPB ADDRESS 
TST R2 : ANYTHING IN QUEUE ? 
BEQ 5$ NCH IF NONE 
100004 MOV SOI TN5 ;81T2, 16(RB) ZINE ORR USER OF PROT REQUEST TIMEOUT 
024472 JSR C, SREAD ALL REGISTERS 
025260 JSR PC, PMP Tyo [CANCEL ALL QUEUE REQ 
MOV (SP) +,R4 TRESTORE R4-R1 
MOV (SP)+-R3 
MOV (SP)+.R2 
MOV (SP)+,R1 
RTS PC sEXIT 


JSR 
INDEX 
ERRADR 


RETURN 


sROUTINE TO READ A RHXX/RPO7 REGISTER 


R4,RD.RP :GO READ A sitigt 
REG. INDEX M BASE 
TERROR ADDRESS--PROCESS ERROR STARTING 
AT THIS ADDR 
SCONTENTS OF REG. IS ON THE STACK 


SEQ 0095 


F 8 
ZR U0 apo? FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 36-5 SEQ 0096 

28 . 

$87 Fer eet o11646 none Movs (SP) = SP) SAVE RG 

= 3 Vv 

289 024256 013746 002660 MOV RPCS1, (SP) SADDRESS OF THE 

390 024262 062416 ADD (R4)*, (SP) : 

91 024 % 017666 000000 000004 MOV a(SP),4(SP) ;READ THE CONTENTS OF THE REG 
$3 024272 013716 002660 MOV RPCS1. (SP) ‘CHECK IF NON-EXIST DRIVE 

93 024276 062716 000010 ADD #10, (SP) : 

294 024302 032776 010000 000000 BIT #B1T12,a(SP) ‘NED BIT SET ? 

299 024310 001904 BNE 1$ TERROR exit 

96 024312 032777 020000 156340 BIT #B1T13,aRPCS1 MCP : SET 

297 024320 001406 BEO 38 XIT 

98 024 $6 016566 000002 000004 1$: MOV (SP) ,4(SP) *MOVE THE RG rs thee OF STACK 
$30 0243 022626 CMP (SP)+,(SP)+¢ gchem OFF THE S 

00 024332 011404 MOV (R4),R4& ; ERROR EXIT A DDRESS 

301 024334 000403 BR 3$ KIT 

302 024336 062704 000002 2$: ADD #2,R4 :NOR MAL EXIT 

303 024342 005726 TST (SP)+¢ CLEARY OFF STACK 

304 024344 000204 3$: RTS R4 asi IT 

$09 ROUTINE TO WRITE A REGISTER 

308 s CALL 

309 r MOV DATA,=-(SP) sDATA TO BE LOADED ON THE STACK 
310 s JSR R4,WRT.RP sCALL THE ROUTINE TO LOAD(WRITE) THE REG. 
311 ; INDEX S INDEX OF THE REGISTER TO BE LOADED 
312 : ERRADR s;ADDRESS TO RETURN TO ON AN ERROR 
$2 s RETURN sERROR FREE RETURN 
315 024346 WRT .RP: 
316 024346 012446 MOV (R4)+,-(SP) s FORMING < a. ADDRESS 

317 024350 001014 BNE 1$ ‘BRANCH IF NOT RPCS1 
318 024352 122766 000150 000004 CMPB #150,4(SP) ‘DATA XTRNS OOMMAMD ? 

319 024360 002410 BLT 1 [BRANCH IF NOT 
320 024362 017746 156272 MOV @RPCS1,-(SP) ;READ RPCS1 
321 024266 000316 SWAB (SP [MERG THE A17,A18,PSEL B'TS 

322 024370 042716 177770 BIC #*C7, (SP) sCHOP OFF THE REST BITS + «OM RPCS1 
323 024374 111666 000007 MOVB te 7(SP) sATTACH A17,A18,PSEL TO COMMAND 
324 024400 005726 TST (SP)+ SRESTORE STACK LEVEL 

325 024402 063716 002660 1$: ADD RPCS1, (SP) STHE DEST REG ADDRESS 

326 024406 016676 000004 000000 MOV 4(SP),a(SP) ‘WRITE THE REGISTER 

327 024414 013716 002660 MOV RPCS1, (SP ;CHECK NED,PAR BITS 

328 024420 062716 000010 ADD #10, (SP) 

369 024426 032776 010000 000000 BIT #B1T12,a(SP) NONE EXIST DRIVE ? 

330 024432 00101 BNE 2$ SBRANCH IF IT JS 

331 024434 013716 002660 MOV RPCS1, (SP) ADDRESS RPER1 

33 024440 062716 090014 ADD #14, (SP) 

333 024444 032776 000010 000000 BIT #B1T3,a(SP) R SET ? 

334 024452 001003 BNE 2$ <BRANEH IF SO 

335 024454 062704 000002 ADD #2,R4 ;NORMAL RETURN 

336 024460 000401 BR x 2 

337 024462 011404 23: MOV (R4) RS TERRO R EXIT 

338 024464 005726 3$: 1ST (SP)+ SCLEAR OFF THE STACK 

339 024466 012616 MOV (SP)+, (SP) MOVE R4 TO TOP OF STACK 

340 024470 000204 RTS R4 TEXIT 

342 sROUTINE TO SAVE THE RHXX/RPO7 REGISTERS AS PER DPB+14 


CZRJLAO ey’ FCTNL TEST 


RPO? DRIVE 
43 
44 
345 
248 
ic8 02447 
02447 
49 024476 
50 024500 
51 024502 
226 024506 
32 024512 
54 024514 
$22 pScese 
56 024526 
357 bsee 0 
358 024536 
359 024540 
360 024542 
361 
362 024544 
363 024550 
364 024552 
365 024554 
366 024556 
67 024564 


3 
368 024566 
$6? 024574 


370 

371 024576 
372 024602 
373 024606 


378 024624 
024624 

379 024630 

380 

381 


382 
383 


LAIN AA 
BROOOS 
DONONE 


Lesecs 


wessssss 
x FEN 


oO 
~ 


000751 
004737 


011413 


004737 
000207 


oooo-CcCooooo 
MWPNMNEAOANED 


oNon- 
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024254 


024550 
000002 
022364 
002652 


002642 
002650 


010700 


002660 
156024 


040000 


000100 
010000 


000022 
156132 


000046 
024550 


156002 


CALL 
: MOV 
: JSR 


SVRHXX: 


7$: 


ROUTINE TO SET 
; CALL 


: MOV 

: JSR 

: RETURN 

SET.IE: MOV 
M 


#DPBNUM,R2 
PC, SVRHXX 


PC, SAVREG 


out tO" .SaPESe 
(R3)+ 
4% 


R4,RD.RP 
0 


(SP)+,(R3)+ 
3$ #46 


(R4), (R3) 
PC ,RESREG 
PC 


THE INTERRUPT WITHOUT GETTING A ‘'TRE'’ 
DRIVE NUMBER TO R1 
3SET ve" 


#DRVNUM,R1 
PC,SET.IE 


R4,-(SP) 
RPCS1,R4 

R1, aRPCS2 
(rR), =(SP) 
#BITI4, (SP) 
(SP) 
#B1T06, (R4 

TS aReCs2 ; 


DPB POINTER TO R2 
ZSAVE THE DRIVES REG'S (RHXX= RH11 OR RH70) 


RO-R5 
‘aoeUE MOH FOR THE DRIVE ? 


:BR 
SSELECT'D 


RIVE 
7GET THE ERROR nore POINTER 
; NO ADDRESS 


POINTER 
: REACHED THE BUFFER REGISTER ? 


:BR IF NOT 
3” SET ? 
fare IF 


sREAD THE R INDEX REGISTER 


;REGISTER 
SERROR RETURN A 


DRESS 
i STORE THE E REGISTER CONTENTS 


eAeeee et HE E 
BR YES 


CTNCREMENT THE REGISTER INDEX 
ZCONTINUE READING THE REGISTERS 


PROCESS THE UNCORRECTABLE PARITY ERROR 
s1S IT RH70 ? 


:1F EQ, NO 
:GET RPCSI BASE ADDRESS 


sPOINT 
GET 


7 ;RESTORE RO-R5 
;RETURN 


PIC 
SELECT 
;REA 
> SET 
: ADJUST FOR 


15 ""NED'*=1? 
YES==CLEAR ““TRE*" 
ZCLEAN OFF THE STACK 


SET 
STORE RPDB AS ZEROES 
ONT INUE 


TO R 
i STORE THE CONTENTS 
RPCS3 


AVE R4 
KUP ADR OF RPCS1 
DRIVE 


RPCS1 
THE oR DAT a OF THE WORD READ 


SEQ 0097 


nh 8 
4 ay Bo ~t 1 *CTNL TEST MACRO V046.00 1-JAN-83 11:06:45 PAGE 36-7 SEQ 0098 
38 99 036800 0lsehe 000001 3: MOvB (SP)¢,1(R4) sCLEAR Se 
2$: MOV (SP) *, RG ZRESTORE R 
410 026702 0 RTS PC RETURN 10” CALLER 


SEQ 0099 
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1 
§ ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
4 = CALL 
, 3 JSR PC, CLROUE 
025176 004737 010646 CLROQUE: JSR PC, SAVREG 7SAVE RO - 
5 025 68 127 024704 MOV #OCNT oR SZERO TH ou eur COUNTS 
025206 0050 CLR (R :DRIVES 0 & 1 
10 9 5 19 050 CLR (R ye [DRIVES + 
11 02521 050 CLR (R2)¢ SDRIVES 4 
i 025214 308 CLR (R2)¢ SDRIVES 6 & 
13 025 Ig 1 000010 MOV #8. ,R3 [MOVE THE STARTING 
14 025 1 704 024754 MOV #OSTART,R1 SADDRESS OF THE QUEUE INTO 
15 025226 0121 2 1$: MOV (R1)#,(R2)4 ‘THE QUEUE INPUT POINTER 
16 025 9 00530 DEC R3 
17 025 001375 BNE 1$ 
18 025 012705 000010 MOV #8. ,R3 MOVE THE STARTING ADDRESS 
19 025240 012701 024754 MOV #OSTART,RI SOF THE QUEUE INTO THE 
20 025244 O1212 2$: MOV (R1)+, (R2)+ SQUEUE OUTPUT POINTER 
1 025246 00530 DEC R3 
é 025250 001375 BNE 2$ 
025252 004737 010700 JSR PC,RESREG sRESTORE RO = R5 
3 025256 000207 RTS PC 
$8 EMPTY THE QUEUE SPECIFIED BY R1 
28 7 CALL 
29 3 MOV DRVNUM,R1 sDRIVE NUMBER TO RI 
3 uSR PC,EMPTYQ 
32 025260 105061 024704 EMPTYQ: CLRB QCNT(R1) sCLEAR NUMBER OF ITEMS IN QUEUE 
33 025264 006301 ASL R 
025266 016161 024714 024734 MOV QINPT(R1),QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
35 025274 006201 ASR R1 
36 025276 000207 RTS PC 
3 ROUTINE TO PUT A REQUEST IN QUEUE 
40 3s CALL 
41 : MOV #DRVNUM,R1 ZDRIVE NUMBER 
42 : MOV #DPB,R2 SADDRESS OF PARAMETER BLOCK 
43 : JSR R4,DRVQUE 360 PUT REQUEST IN QUE 
44 : RETURNI :RETURN HERE IF QUEUE IS F 
4s : RETURN2 SRETURN HERE IF REQUEST 1S” iN QUEUE 
47 025300 122761 000010 024704 DRVQUE: CMPB #10,QCNT(R1) :1S QUEUE FULL? 
48 025306 001421 BEO 2$ ‘BR IF YES=TAKE RETURN 
49 025310 105261 024704 INCB = QCNT(R1) S INCREMENT QUEUE COUNT 
50 025314 006301 ASL R1 
51 025316 010271 024714 MOV R3 .30 -@O1NPT (RI) :PuT THIS REQUEST IN QUEUE 
22 025322 062761 000002 024714 ADD B 1) UPDATE T HE oOuevE POINTER 
53 025330 026161 024714 024756 CMP Q aettRie Fastopcit) sTIME RESET THE POINTER 
54 025336 001003 BNE ANCH NO 
5S 025340 016161 024754 024714 MOV QSTART(R1), QINPTiRI) TYES@-RESET POINTER 
56 025346 006201 1$: ASR R1 
$7 025350 005724 1ST (R4)¢+ STAKE RETURN 2 
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8 025352 000204 2%: RTS R4 :RETURN TO USER 

$9 sROUTINE TO GET THE "DPB" ADDRESS OF NEXT REQUEST IN QUEUE 

6¢ 3s CALL 

6 3 MOV #DRVNUM,R1 ;DRIVE NUMBER TO R 

64 ; JSR PC, GETREQ :69 GET THE rege Est 

65 : RETURN R2="'DPB DRESS OF THE REQUEST 
$8 3 *R2=0 IF wo REQUES! IN QUEUS 

68 025354 005002 GETREQ- CLR R2 

69 025356 105761 024704 TSTB =—s-_- QCNT(R1) 1S THERE in REQUEST IN QUEUE? 
70 025 1404 BEQ 2$ :NO---BRA 

71 025 906501 1$: ASL R1 

72 025366 017102 024734 MOV @OOUTPT(R1),R2 ;PICKUP "DPB’’ POINTER FOR THIS DRIVE 
7 Og9372 006201 ASR R1 

if 025374 000207 28: RTS PC :RETURN TO USER 

4 | ROUTINE TO "POP*’ THE REQUEST FROM QUEUE 

78 CALL 

79 : MOV #DRVNUM,R1 ;DRIVE NUMBER TO R1 

80 : JSR PC, POPQUE SCALL TO REMOVE REQUEST 

81 : RETURN *RZ=ADDRESS OF DPB REMOVED 

83 025376 105361 024704 POPQUE: DECB QCNT(R1) :DECREMENT QUEUE COUNT 

84 025402 006301 ASL R1 vegies 

85 025406 017102 024734 MOV @QOUTPT(R1),R2 :GET THE “‘DPB'’ POINTER 

86 025410 005071 024734 CLR @QOUTPT(R1) ; REMOVE bPB ADDRESS FROM THE QUEUE 
87 025414 062761 000002 024734 ADD #2, QOUTPT(R1) UPDATE THE QUEUE POINTER 

8B 025422 026161 024734 024756 CMP QOUTPT(R1), astorint) :TIME TO RESET THE POINTER? 
89 025430 001003 BNE 1$ NO=-BRANCH TO EXIT 

90 025432 016161 024754 024734 MOV OSTART(R1) ,QOUTPT (RI) ZYES@-RESET THE POINTER 

91 025440 696201 1$: ASR R1 

92 025442 000207 RTS PC sRETURN TO USER 
102 
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REPORT CODING SCCTION 

! .SBTTL REPORT CODING SECTION 

4 

4 :" THE REPORT CODING SECTION CONTAINS THE 

46 ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 

46 i 

47 025444 LSRPT:: 

6 

61 025444 000167 WORD J$JMP 

. 025446 000000 «WORD £10013-2-, 

74 oEVEN 

75 

76 025450 L10013: 

025450 104425 TRAP C$RPT 
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PROTECTION TABLE 
-SBTTL PROTECTION TABLE 
pee 
4 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 
2 ; TO PROTECT THE LOAD MEDIA. 
7 ° 
8 OS 342s LSPROT:: 
9 02545 990000 0 ;P-TABLE OFFSET OF CSR 
10 025454 17777 1 NOT A MASSBUS DEVICE 
i; 025456 000006 6 ;P-TABLE OFFSET ORIVE # 


SEQ 0105 
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ALIZE SECTION 
.SBTTL INITIALIZE SECTION 
3+ 
4 + THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
, ; AT THE BEGINNING OF EACH PASS. 
8 025460 LSINIT:: setet tet wens 
’ L 
10 025460 104433 TRAP C$RESET 
" 025462 012737 015272 002252 MOV #ABOPAS ,BYPASS :ABORT PASS OM DEV FATAL ERROR DETECTED IN "ERRABO’, 
ig 025470 012737 000001 002240 MOV #1, 1TCNT SRESET ITERATION COUNT 
14 025476 005037 002242 CLR ISRCNT [CLEAR INTERRUPT COUNTER 
15 ‘POWER UP SEQUENCE ? 
16 025502 012700 000034 MOV #EF .PWR,RO 
i 025506 104447 TRAP = CSREFG at an oih on ane 
3 Y 
18 025510 103432 BCS 4$ 
19 sCONTINUE COMMAND ? 
20 025512 012700 000036 MOV #EF .CON,RO 
025516 104447 TRAP = C$REFG 
21 :G0 TO 1$ IF NO 
3¢ 025520 10300 BCC 1$ 
23 025522 000137 026124 JMP CONTIN :G0 TO "CONTIN® IF YES 
24 025526 1$: S"STA', "RES OR "NEW PASS® ? 
25 025576 012700 000035 MOV WEF .NEW,RO 
025532 104447 TRAP = C$REFG 
26 3G0 TO 3$ IF NO, MUST BE NEW ‘SUB-PASS* 
37 025534 103016 BCC 3$ ical 
29 025536 012746 003054 MOV #CRLF ,-(SP) 
025542 012746 000001 MOV #1,-(SP) 
025546 010600 MOV SP,RO 
025550 104417 TRAP _— CSPNTF 
025552 062706 000004 ADD #4,SP 
30 025556 012737 177777 002640 MOV #-1,UNIT ;RESET UNIT COUNT 
31 025564 012727 177777 MOV #-1,(PC)+ TRESET CLOCK MESSAGE FLAG 
32 025570 000000 2$: .WORD 0 [CLOCK MESSAGE FLAG GOES HERE 
33 025572 005237 002640 3$: iNC UNIT [GET NEXT UNIT NUMBER FOR TESTING 
34 025576 023737 002640 002012 4$: CMP UNIT, LSUNET [OUT OF UNITS TO TEST ? 
35 025604 002166 BGE ABORT *BR IF YES 
36 025606 012702 000024 MOV #20. ,R2 SRHXX/RPO7 REGISTER COUNT 
37 925612 012703 002660 MOV #RPCS1,R3 SDATA SINK 
3e ;GET UNIT FROM HARDWARE P-TABLE 
39 025616 013700 002640 MOV UNIT,RO 
025622 104442 TRAP CS$GPHRD 
025624 010005 MOV RO,RS 
40 025626 103361 BCC 3$ 
41 025630 011346 MOV (R3),<(SP) TSAVE R3 
42 025632 011546 MOV (R5) .=(SP) ‘AND THE BASE ADDRESS 
43 025634 166616 000002 SUB 2(SP5, (SP) ‘DERIVE NEW ADDRESS 
44 025640 061623 5$: ADD (SP), (R3)¢ [LOG IT IN NEW TABLE 
45 025642 005302 DEC R2 [COUNT LOGGING 
46 025644 001375 BNE 5$ tR2 NOT ZERO, CONTINUE LOGGING 
47 025646 004737 010732 JSR PC,SIZE70 *SEE IF RH70 1S PRESENT 
48 025652 005737 002652 15] RHTYPE :1S IT AN RH70 ? 
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002650 


005273 
000002 


000006 


005240 
000002 


000006 


005201 
000002 


000006 


005150 
000002 


000006 


902250 
(25570 


6$: 


7$: 


8$: 


9$: 


10$: 


(SP)+ 


DDwDwD 
wv 
< 
nn 

* 


DRVTYPC(R5) 

8$ 

7$ 

R5,-(SP) 
#NOTMSG,-(SP) 
#2,~-(SP) 
CSPNTF 

#6,SP 

3$ 

R5,-(SP) 
#OFLMSG,-(SP) 
oe Se 
CSPNTF 
#6,SP 


3BR IF NO 

[GET RPBAE OFFSET 

[ADD BASE ADDRESS TO OFFSET 
TSAVE NEW RPBAE 

TSAVE NEW RPCS3 

sRESTORE STACK 

?SAVE RPCS1 BASE ADDRESS 
[SAVE INTERUPT VECTOR ADDRESS 
:SAVE INTERUPT PRIORITY 
[SETUP RIVE NUMBER FOR UNIT N 
SINITIALIZE THE SUB-SYSTEM 
:PICKUP DRIVE # AS AN | 


sCHECK DRIVE STATUS: 
; BRANCH 


3 UNSAFE 
sDRIVE OK 


D+ 


NE FL 
“NED BRANCH 
sOFL 


9 


: NON-EXISTENT DRV 


BRANCH: OFF-LINE 


EXIT BLOCK 


EXIT BLO 


sEXIT BLO 


;DRV NOT AVAILABLE: TRY ANOTHER 


:DRV IS O 
P TYPE 


: - OK! 
sUPDATE, CAN CLOCK MESSAGE BE TYPED ? 


CK 


CK 


K: WH 


AT CLOCK TYPE? 


SEQ 0105 


NDE X 
If NOT AVAILABLE, TRY ANOTHER DRIVE 
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004232 
000001 


000004 


Opsere 


3 674 


644 
000003 


000010 
011676 


012262 
000040 
002250 


012126 


012136 


002644 


154474 


002540 


002620 


154370 


CONTIN: 


ABORT: 


1$: 


23: 


EXINIT: 


3$: 


SEQ 0106 


BNE EXINIT ;BR IF NO 
[PRINT "NO P=CLOCK, TIMING TESTS WILL NOT BE EXECUTED’ 

MOV #NOCLK,<(SP) 

MOV #1,-(SP) 

MOV SP-RO 

TRAP = CSPNTE 

ADD #4,SP 

BR EXINIT ;SKIP NEXT INTERMEDIATE BRANCHING 
;SETUP RHXX/RPO7 VECTOR 

MOV RPVEL+2,<(SP) 

MOV #ISRV,-(SP) 

MOV RPVEC.<(SP) 

MOV #3,-(5P 

TRAP CSSVEC 

ADD #10,SP 

JSR PC,§T.CLK sSTART CLOCK 

TRAP 3s CSEXIT 

«WORD 110015-. 

JSR PC, STOPCK sSTOP THE CLOCK 

MOV #CLR,aRPCS2 [MASSBUS INIT TO CLEAR IMPENDING INTERRUPTS 

1ST CLKSTA SRELEASE APPROPRIATE CLOCK VECTOR 

BEQ 2$ ‘NO CLOCK, SKIP 

BM] 1$ sL-CLK 

MOV PKV,RO 

TRAP = CSCVEC 

BR 23 SKIP 

MOV LKV,RO 

TRAP = CSCVEC 

MOV RPVEC,RO 

TRAP C$CVEC 

TRAP C$DCLN 

TRAP = C$EXIT 

.WORD 110015-. 

MOV DRVNC,DPB.A sSTUFF DRIVE NUMBER IN DPB TABLES 

MOV DRVNO,DPB.B 

MOV DRVNO,DPB.C 

MOV DRVNO,DTADPB 

:PRINT DRIVE SERIAL NUMBER 

MOV #4,R1 74 DIGITS 

MOV DRVNO,@RPCS2 :SELECT DRIVE 

MOV DRVNO, (SP) 

MOV #DSNMSG,-(SP) 

MOV #2,-(S5P) 

MOV 

TRAP  CSPNTF 

ADD #6,S5P 

MOV ARPSN, =(SP) sFETCH S/N 

CLR R2 [ZERO OUTPUT 

ROL (SP) :PUT NEXI DIGIT INTO R2 

ROL R2 


“«, 
rnin 


LAO RPO7 F 

IALIZE SEC 
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121 026 

1 é 026344 

125 026 

124 8 635 

13 O38 

139 026 {3 
026366 
HH 
ster 
Bs erbe 

128 026406 
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($P) 
P) 
a3 
as 

0,R2 ZMAKE RESULT ASCII 

2,0RVS SSAVE Re FOR PRINT 
#DRVSN,=(SP) 
#SNDIGT,-(SP) 

2,=(SP5 
SP-RO 
CSPNTF 

6,SP 

:COUNT DOWN DIGIT 
3$ INEXT DIGIT 
(SP) + SRESTORE STACK 
gtK ue 

#CRLF ,-(SP) 
#1,-(§P) 
SP-RO 
CSPNTF 
#4,SP 
PC,LDCMD ;LOAD COMMAND IN DPB.B, DPB.C FOR SEEK TESTS 
#ABORT,BYPASS :BYPASS ROUTE ON RP DRIVER FATAL ERROR 
#20,DPB.A+1 [SET 16 SIT FORMAT 
#SETFORM,DPB.A+2 7SET FORMAT MODE (16 BIT) 
R4, CALL. :GO EXECUTE THE COMMAND 
#ABOPAS.BYPASS :RESTORE ABORT ADDRESS FOR "ERRABO DEV FATAL ERROR 
CSEXIT 
L10015-. 


CSINIT 


SEQ 0107 


—o 
mem 


= 
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AUTODROP SECTION 


os 
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-SBTTL AUTODROP SECTION 


+ 

THIS +f ODE, js A iad i IMMEDIA 
TH WAS SET. THE 
SEE tF OT HEY wie RESPOND. TH 
DROPPED FROM TESTING. 


TRAP C$AUTO 


( 
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zur 


FTER THE INITIALIZ 
) UNDER TEST ARE C 
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E CODE IF 
HECKED TO 
IATELY 


SEQ 0108 
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013700 
104436 
013700 
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-SBTTL CLEANUP CODING SECTION 


TION CONTAINS THE CODING THAT IS PERFORMED 


;** 
; THE CLEANUP CODING SEC 
E TESTS HAVE BEEN PERFORMED. 


3 AFTER THE HARDWAR 


LSCLEAN:: 
sSET PRIORITY TO 7 
000340 + oer ire RO 
90 040 154150 MOV #CLR,aRPCS2 ;MASSBUS INIT TO CLEAR IMPENDING INTERRUPTS 
02654 154142 MOV DRVNO,@RPCS2 :GET DR IVE NUMBER 
012262 JSR PC, STOPCK :STOP THE CLOCK 
002250 TST CLKSTA SRELEASE APPROPRIATE CLOCK VECTOR 
BEQ 2$ :NO CLOCK, SKIP 
BMI 1$ L-CLK 
eatin VECTOR RELEASE 
012126 MOV PKv,RO 
TRAP CSC VEC 
BR 2$ 
- SL-CLK VECTOR RELEASE 
012136 MOV LKV,RO 
TRAP = C$CVEC 
23: ;RPO7 VECTOR RELEASE 
002644 MOV RPVEC,RO 
TRAP = C$CVEC 
TRAP CSEXIT 
.WORD 110017-. 
110017: 
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ON 


000167 
000000 


104453 


-S8STTL DROP UNIT SECTION 


3+¢ 
3 THE DROP*UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


L$DU:: 


L10029: 


. WORD 
- WORD 


-EVEN 


TRAP 


J$mP 
L10020-2-. 


C$Du 


SEQ 0110 


CZRJLAO_RPO7 F 
ADD UNIT SECTI 


26602 


0 
026602 
026604 
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ON 


000167 
000000 


104452 


-SBTTL ADD UNIT SECTION 


:+4 
THE ADD=-U 


F NIT SECTION CONTAINS ANY CODE THE PROGRAMMER WIS 
; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT 
: TO THE TEST CYCLE. 
L$AU:: 

~ WORD JSJMP 

-WORD 110021-2-. 

EVEN 
110021: 


TRAP C$Au 


HES 
BACK 


SEQ 0111 


—o— 
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HARDWARE TESTS 


CODNA VE WDR OOOO EWN SOOONAUEwn 


SB ENA NAW RPI NINNININ 2 2 oe 
—_ 


Pt 
WE wt 


-SSTTL HARDWARE TESTS 


s*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
3 #AND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 
2 SMNEMONIC VALUE VARIABLE 

e eee eraowe a om ee Rm See ee 

°* 

Se] TONT 1 ITERATIONS 

eFC 0 FIRST CYLINDER ADDRESS 

:#LC 629 LAST CYLINDER ADDRESS 

z*1C 1 INCREMENT VALUE 

PeNC OF NCI FC+IC NEW on NoDIF IED CYLINDER 
Senc2 LC#IC NEW OR MODIFIED Cvi INDER 

$e ADDRESS 

°° 

teFT 0 FIRST TRACK ADDRESS 

s*LT 31. LAST Love: DRESS 

eT i INCREMENT UE 

teNT FTe[T NEW OR MODIFIED TRACK ADDRESS 
** 

eFS 0 FIRST SECTOR ADDRESS 

LS 49. LAST SECTOR ADDRESS 


TED USING IMPLIED SEEKS. THESE 
RMED BY "READ HEADER AND 
SECTOR “'FS'* OF THE DESIRED CYLINDER, 
L CH THAT ONLY THE CYLINDER AND 
;*TRACK/SECTOR WORDS OF THE HEADER ARE READ. 
*HOWEVER, THESE IMPLIED SEEKS CAN BE SUPERSEDED BY EXPLICIT SEEKS 
S*VIA OPERATOR DIALOGUE, IN WHiCH CASE HEADER INFORMATION IS NOT VERIFIED. 


mon 


SEQ 0112 


—o 
Leal | 


vw 
ae 


J’ 9 
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1: RECALIBRATE TEST 
.SBTTL TEST 1: RECALIBRATE TEST 
3 
39 pee eeeeeaneaeerereeteerertreeetrereneneneeentieeeReneneeneeterenaneereLeneerees 
40 3* THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
41 7° COMMAND CYCLE . THEN DO A READ HEADER AND DATA COMMAND 
Pi te TO VERIFY POSITION. 
4 lp eeeeeneneeeneeneeeaeereeeneereeeeneeeeeeeeeeenerenereeeeeerreereneteeererete 
44 
51 
57 026610 Tis: 
58 026610 012737 000012 002240 MOV #10.,1TCNT sSET ITERATION COUNT 
59 026616 TESTI 
026616 112737 000107 002542 MOVB WRECAL,DPB.A*2 ;RECAL=COMMAND 
60 026624 005037 002570 CLR DPB.B+10 SSEC/TRK 0 
61 026630 005037 002572 CLR DPB.B+12 CYL 0 
62 026634 11,1 
026634 104402 TRAP  C$BSUB 
63 026636 004437 014260 JSR R4,CALL.A 3GO EXECUTE THE COMMAND 
026642 004437 014376 JSR R4.CALL.B [GO EXECUTE THE <EQHMAND 
65 026646 005337 002240 DEC ITCNT : DONE ITERATION 
66 026652 001361 BNE TESTI [BR IF NO 
7 026654 EXIT1 
02665 110023: 
026654 104403 TRAP C$ESUB 
68 026656 110022: 
026656 104401 TRAP = CSETST 


« 
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TEST 2: INCREMENT SEEK TEST 


1 .SBTTL TEST 2: INCREMENT SEEK TEST 
¢ 3 3 eee THIS TEST WILL COMMAND FORWARD SEEK CYCLES 10 ADVANCE IME 
rs 38 THIS TEST WILL COMMAND, FORWARD, SEEK CYCLES T0 aADVANCE, TH HE 
5 * CYLINDER ADDRESS FROM "'FC'’ TO LC’ BY THE INCREMENT “‘IC''. 
g 7* WHEN THE RESULTANT CYLINDER ADDRESS (NCD EX CEEDS 

3* _ REVERSE SEEK CYCLES ARE INITIATED; STARTING 
* * at THE LAST LEGAL NC’ AND DECREMENTING BY “‘IC’ 
9 3* UNTIL nC Is CESS THAN "'FC’’. AT THE COMPLETION oF EACH 

10 3* SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED T 

11 3° ENSURE PROPER OPERATION 

\¢ 3 3 OIE a son Dine 0 Bt. ment +. TENG LOT NE Doe A aL SN 

1 

14 026660 T2:: 

15 026660 113737 002220 002570 1$: MOVB «FS, DPB.B+10 FS 

16 026666 113737 002212 002571 MOVB «FT .DPB.B+11 SFT 

17 026674 013737 002204 002572 MOV FC. DPB.B+12 ZFC 

18 026702 12.11 

026702 12.1: 

026702 104402 TRAP  C$BSUB 
19 026704 004437 014376 JSR R4,CALL.B :GO EXECUTE THE COMMAND 
20 026710 L10025: 

026710 104403 - TRAP  CSESUB 

21 026712 063737 002210 002572 ADD iC,DPB. B+12 sMOVE TO NEXT CYLINDER 

22 026720 023737 002206 002572 CMP LC.DPB.B+12 SOUT OF CYLINDERS? 

23 026726 002365 BGE 12.11 ‘NO=-BRANCH 

24 026730 013737 002206 002572 MOV LC,DPB.B+12 

25 026736 12.21: 

026736 12.2 

026736 104402 TRAP C$BSUB 
26 026740 004437 014376 JSR R4,CALL.B :GO EXECUTE THE COMMAND 
27 026744 L10026: 

026744 104403 TRAP — C$ESUB 

28 026746 163737 002210 002572 SUB IC, DPB.B+12 

29 026754 023737 002204 002572 CMP FC.DPB.B+12 

30 026762 003765 BLE 12.21 

31 026764 EXIT2: 

026764 L10024 
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-SBTTL TEST 3: RANDOM SEEK TEST 


RRA AAAAAAAAAEKAAAAAAAHAAAAAAAAAAAHAAEHAAAAAAAAAAKARAEAAERAAAAReAAATAAAAAAes 


4 3 THI§ TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS °FC' 
5 i "LC*, AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
6 i* READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 
7 i THE TRACK ADDRESS 15 INCREMENTED FOR EACH SEEK, SO. THAT VERIFICATION 
= i OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMEN' 
9 :* BETUEEN PARAMTERS. FT" AND “LT*. 
10 i THE RANDOM CYLINDER IS GENERATED BY USING THE "MOD" FUNCTION: 
11 3 X MOD Y= X= (xX DIV Y) * ¥ 
1g : IF X,Y ARE INTEGERS WiTH Y <> 0 THEN: 
1 i MOD Y = REMAINDER OF X DIV Y 
14 ts THE ACTUAL OPERATION PERFORMED 1S: 
15 3 P1 MOD (LC+1)~FC 
16 :* BY DOING: 
17 i FC + 
18 i WHERE R [S-OBTAINED BY: 
19 :* $RP1 DIV Vv (LC#1)=FC =Q¢R 
20 3* WHERE Q = QUOTIENT, REMAINDER, $RP1 = A RANDOM NUMBER FROM RAND CALL. 
21 oe secunetosenetonenscastestavsnnnerecsesnsbhosoesnesssacessateseosouceqneurens 
22 
23 026766 TB: 
24 026766 012737 000012 002240 mov #10. , TENT ;SET ITERATION COUNT 
25 026774 113737 002212 002571 MOVB FT,OPB.B+11 LOAD STARTING TRACK ADDRESS 
26 027002 112737 000105 002542 MOVB  #SEEK,DPB.A+2 — : SEEK=COMMAND 
27 027010 013737 002204 002572 TEST3: MOV FC,DPB.Bei2 =; INITIAL CYLINDER ADDRESS 
28 027016 023737 002204 002206 (MP «FL CYLINDER LIMITS THE SAME ? 
29 027024 001425 BEQ=Ss*3..11 :6R IF THEY ARE 
31 ;GENERATE A RANDOM CYLINDER 
33 027026 004737 011610 JSR —- PC, RAND CYCLE THE RANDOM NUMBER GENERATOP 
34 027032 013746 011672 MOV ss $RP1., = (SP) SUSE THE HIGH RANDOM NUMBER 
35 027036 005046 CLR = =( SPS :UPPER D DIVIDEND 
36 027040 013746 002206 MOV «LC, =(SP) :FORM THE DIVISOR 
37 027044 005216 INC (SP) ; INCREMENT 
38 027046 163716 002204 SUB sé, (SP) SUBTRACT THE LOWER LIMIT 
39 027052 004737 011074 JSR PC SDIV ;DIVIDE 
40 027056 062637 002572 ADD ——(SB)+,DPB.B+12 ADD THE REMAINDER 10 THE INITIAL CYLINDER 
41 027062 005726 TST (SP )+ DISCARD THE QUOTENT 
43 ;END OF RANDOM CYL GEN. 
45 027064 013737 002572 002552 MOV —- DPB.B+12, DPB.A+12 COPY NEW CYLINDER ADDRESS 
46 027072 13.1: 
027072 104402 TRAP —C$BSUB 
47 027074 13.11: 
027074 004437 014260 JSR RG, CALLA GO EXECUTE THE COMMAND 
48 027100 110030: 
027100 104403 TRAP —-CSESUB 
49 027102 13,2: 
027102 104402 TRAP —C$BSUB 
50 027104 113777 002540 153556 MOVB DPB.A,aRPCS2  ;SELECT THE DRIVE 
51 027112 017746 153562 MOV  @RPLA.-(SP) «GET THE LOOK AHEAD REGISTER 
52 027116 006316 ASL (SP) TALIGN THE SECTOR ADDRESS 
53 027120 006316 ASL CSP) TALIGN THE SECTOR ADDRESS 
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SWAB (SP) sPUT ADDRESS IN LOWER BYTE 
$3370 MOVB (SP)+,DPB.B+10 ;LOAD THE DPB 
0 e$e MOV NS1,<(SP) ;PUT LAST SECTOR ADDRESS ON THE STACK 
02570 CMPB (SP5+,DPB.8+10 NEW SECTOR ADDRESS TOO LARGE ? 
BHIS $ :BR IF NOT 
BLO $ 3BR_IF ADDRESS IS 2 GREATER 
002570 CLRB DPB.B+10 sRESET TO SECTOR ADDRESS 0 
BR 2$ ; CONTINUE 
000001 002570 ye: MOVB #1,DPB.B+10 sRESET ADDRESS TO SECTOR 1 
014376 £10031 JSR R4,CALL.B GO EXECUTE THE COMMAND 
TRAP CSESUB 
002571 INCB DPB.B+11 ; INCREMENT THE TRACK ADDRESS 
002571 002214 CMPB ren MAXIMUM ? 
BLOS TEST 3BR IF NOT 
002212 002571 MOVB FT,OPB.B+11 RELOAD STARTING TRACK ADDRESS 
002240 EXIT3: DEC ITCNT DONE ITERATIONS ? 
BNE TESTS :BR IF NO 
L10027: 
TRAP CSETST 
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AL, RANDOM SEEK T 


GQOoesLslo 
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37 011074 
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153342 


-SBTTL TEST 4: RECAL, RANDOM SEEK TEST 


greener HIS TEST EXECUTES A RECAL COMMAND, THEN A SEEK IMPLIED IN A READ HEADE 


i THIS TEST EXECUTES A RECAL COMMAND, THEN A SEEK IMPLIED IN A READ HEADER 
ie AND DATA COMMAND, TO A RAND mY SPCECTED CYLINDER. 
* THIS SEQUENCE IS REPEATED 10 TIMES. 
ie THE TRACK AD OF THE RANDOMLY SELECTED CYLINDER IS INCREMENTED BY ONE, 
3* STAR NG FROM FC, AT EACH TEST ITERATION. 
i THE RANDOM CYLINDER Pras ED BY USING THE "MOD" FUNCTION: 
3* IF X,Y ARE INTEGERS WITH Y <> 0 THEN 
3* REMAINDER OF X DIV Y 
3* THE ACTUAL OPERATION PERFORMED Ise 
ie FC + $RP1 MOD (LC+1)-FC 
3* BY DOING: 
3* YL = FC + 
* WHERE R IS OBTAINED BY: 
3* $RP1 DIV (Le+1) FC =Q+¢R 
7* WHERE Q = QUOTIENT  EEMAINDER, $RP1 = A RANDOM NUMBER FROM RAND CALL. 
f edeadenetenosenaetsaneeninenaatasaanesseleonenneamanonconeuancesseannsneoentl 
T4:: 
MOV #10.,1TCNT ;SET ITERATION COUNT 
MOVB FT, DPB.B+11 LOAD STARTING TRACK ADDRESS 
MOVB  @#RECAL,DPB.A+2 :RECAL=COMMAN 
TESTG: MOV FC,DPB.B+12 SINITIAL CYLINDER ADDRESS 
;GENERATE A RANDOM CYLINDER 
JSR PC, RAND CYCLE THE RANDOM NUMBER GENERATOR 
MOV $RP1,-(SP) 3USE THE HIGH RANDOM NUMBER 
CLR -(SP5 :UPPER DIVIDE 
MOV LC, <(SP) M THE DIVISOR 
INC (SP) NC EMENT 
SUB FC, (SP) SUBTRACT THE LOWER LIMIT 
JSR PC; $DIV VIDE 
AP? (SP)+,DPB.B+12 ADD THE REMAINDER 10 THE INITIAL CYLINDER 
TST ($P)¢ [DISCARD THE QUOTENT 
is ZEND OF RANDOM CYL GEN. 
TRAP  C$BSUB 
JSR R4,CALL.A 3G0 EXECUTE THE COMMAND 
L10033: 
TRAP = CSESUB 
14.2: 
TRAP  (C$BSUB 
MOVB = OPB.A, @RPCS2 SELECT THE DRIVE 
MOV @RPLA.=(SP) [GET THE LOOK AHEAD REGISTER 
ASL (SP) SALIGN THE SECTOR ADDRESS 
ASL (SP) SALIGN THE SECTOR ADDRESS 
SWAB sé SP?) PUT ADDRESS IN LOWER BYTE 
1$: MOVB  (5P)*,D0PB.8+10 LOAD THE DPB 
MOV NS1,-(SP) PUT LAST SECTOR ADDRESS ON THE STACK 
CMPB (SP) +, DPB.B+10 ;NEW SECTOR ADDRESS TOO LARGE ? 
BHIS 3$ R IF NOT 
BLO 2$ ‘BR IF ADDRESS IS 2 GREATER 


SEQ 0117 


C 
T 


Z 
EST 


55 Oe? 60 


$ 027 


wm 
woo 
oo 
mrr 
~~ 
WWW 
NO 
on 


WaAwr 


19308r 
0403 


112737 
004437 


002570 


000001 002570 $3: 


014376 
5 
5 


0257 
0257 
0221 
0984 


i 


oo oo 


002214 
002571 


110034: 


EXIT4: 


110032: 
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4: RECAL, RANDOM SEEK TEST 


ges Bete 


#1,0PB.B+10 
R4,CALL.B 
CSESUB 
8.B+11 
DPB: B+i1,LT 
TESTS 
FT,DPB.B+11 
ITCNT 
TESTS 


CSETST 


sRESET TO SECTCR ADDRESS 0 
CONT INUE 


sRESET ADDRESS TO SECTOR 1 
GO EXECUTE THE COMMAND 


ERAKI MUR? THE TRACK ADDRESS 


:BR IF NOT 
;RELOAD Ae Lf Lee TRACK ADDRESS 


:DONE IT — 


SEQ 0118 


4 
5 
6 
7? 
8 
9 
10 
3 
13 
14 
15 
16 
17 027434 
18 027434 
19 027442 
20 027450 
21 027456 
22 
23 
24 
25 027464 
26 027470 
27 027476 
027476 
28 027500 
027500 
29 027504 
027504 
30 027506 
027506 
31 027510 
32 027514 
027514 
33 027516 
34 027522 
35 027526 
Hd 027534 
38 
39 
40 027536 
41 027542 
42 027550 
027550 
43 027552 
027552 
44 027556 
027556 
45 027560 
027560 
46 027562 
47 027566 
027566 


C 10 
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005037 
012737 


104402 
004437 
104403 


005037 
012737 


104402 
004437 
104403 


104402 
004437 


104403 


002572 
000040 


014376 


014560 


002612 


002612 


002612 


-SBTTL TEST 5: DIFFERENTIAL SEEK TEST 


*RHARAHEREATAHAEHEHHTAEHHEKAERETHAHARAAAAKATHAeeAeeeeReeHeneeertetaeregeeerteereee 


i THIS TEST CONSISTS 
3* SYSTEM RESPONSE TO 
:* ° YL DIF SEEK: 
;* 
3* 2. 33 CYL DIF spe: 
3* FROM CYL 0 TO 3 
;* 
‘* 400 CYL DIF SEEK: 
3° 
TS: 

MOVB FS,DPB.B+10 

MOVB FT,DPB.B+11 

MOVB LS,DPB.C+10 

MOVB LT,DPB.C+11 

36 CYL DIFF SEEK 
TESTS: CLR DPB.B+12 
15.1 MOV #5,DPB.C+12 

TRAP C$BSUB 
15.11: 

JSR R4,CALL.B 
L10036: 

TRAP CS$ESUB 
15.2: 

TRAP C$BSUB 

JSR R4,CALL.C 
110037: 

TRAP CSESUB 

INC DPB. Bs12 

INC DPB.C+12 

CMP NC1,DPB.C+12 

BGE 15.41 

333 CYL DIFF SEEK 

CLR DPB.B+12 
15.3 MOV #32.,DPB.C+12 

TRAP C$BSUB 
15.31: 

JSR R4,CALL.B 
L10040: 

TRAP CS$ESUB 
15.4: 

TRAP C$BSUB 

JSR R4,CALL.C 
L10041: 

TRAP C$ESUB 


F 3 SUBTESTS TO TEST THE HEAD POSITIONER AND SERVO 
UNIQUE | DIFFERENTIAL SEEK P 
2°10 7, «e. 624 10 629" TO TEST THE POSITIONAL LOGIC. 


WORST CASE SEEK Ovensnoor TEST, FORCED BY SEEKING 
1 10 33, 10 629. 


3. FORCES MAX ACCE ary on be DECEL ERATION OF CARRIAGE 
Mieue BY SEEKING FROM CYL 40 


ROF ILES: 
A SLEW RATE CHANGE BY SEEKING FROM CYL 0 10 5, 


270 34, ... 597 


1 T0 400, 2 T0 


SRAERRAAARAARAEAATAARAAHEHAEAAAAAAEEAAAEAARAEAAAHARHAAAAAAAAAEARARAARARAHAAREHEAAAAAAAAEE 


sFIRST SEEK OF THE PAIR OF SEEKS READS FS, FT 
SECOND SEEK OF THE PAIR OF SEEKS READS LS, LT 


sFIRST SEEK STARTS AT 0 
:SECOND SEEK IS TO FIRST CYL + 5 


3GO EXECUTE THE COMMAND 


3GO EXECUTE THE COMMAND 


NEXT CYL OF FIRST SEEK 

[NEXT CYL OF SECOND SEEK 

;REACHED LAST USER CYL ON SECOND(LAST?) SEEK? 
SNOT YET, REPEAT ABOVE SEQ UNTIL OUT OF CYL 


RST SEEK STARTS AT 0 
C IRS 


sFIRS Ss 
SECOND SEEK IS TO FIRST CYL * 32. 


3G0 EXECUTE THE COMMAND 


3GO EXECUTE THE COMMAND 


SEQ 0119 


C2! 


AO RPO7 FCTN 
5: DIFFERENT 
48 027570 
49 027574 
50 027600 
52 027606 
54 
55 bere 
Ws 
sre 
58 p¢76 4 
027624 
59 027630 
027630 
60 Oe 788s 
02763 
61 027634 
62 027640 
027640 
63 027642 
64 027646 
65 027652 
66 027660 
67 027662 
027662 
027662 


005037 
012757 


104402 
004437 
104403 


104402 
004437 


104403 


002361 


104401 


= 


S 
7 
i 


: 


00257 
00061 


5 
3 


014376 


014560 


002572 
002612 
002256 


002612 


002612 


002612 


15.5: 
15.51: 


L10042: 


75.6: 


110043: 


D 10 
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INC DPB.B+12 
INC DPB.C+1 

CMP Ncl DPB.C+12 
BGE 15.31 


3400 CYL DIFF SEEK 


CLR DPB.B+12 
MOV #399. ,DPB.C+12 
TRAP C$BSUB 

JSR R4,CALL.B 
TRAP  C$ESUB 

TRAP  C$BSUB 

JSR R4,CALL.C 
TRAP  CSESUB 

INC DPB.B+12 

INC DPB.C+1 

CMP NC1.DPB.C+#12 
BGE 15.51 

TRAP CSETST 


SEQ 0120 


NEXT CYL OF FIRST SEEK 

EXT CYL OF SECOND SEEK 
TREACHED LAST USER CYL ON SECOND(LAST?) SEEK? 
; YET, REPEAT ABOVE SEQ UNTIL OUT OF CYL 
sFIRST SEEK STARTS AT 0 
sSECOND SEEK IS TO FIRST CYL + 399. 


3GO EXECUTE THE COMMAND 


3GO EXECUTE THE COMMAND 


NEXT CYL OF 4 3 Rath 

sNEXT CYL OF SECOND SEEK 
TREACHED LAST USER CYL ON SECOND(LAST?) SEEK? 
SNOT YET, REPEAT ABOVE SEQ UNTIL OuT OF CYL 


=o 
mm 


E 10 
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— — 3 
CO NEW SOOCOsOurwn— 


OOOCOCCOCOCCOCOOCOOOCOC OOOO oOoOoO 


- 
POMP NR NoPonononofononornonorornerereror 


—_ —_ 


Mornrnnr nv 
ViFrWN— OO Oo ww 


002204 


SEQ 0121 ¢ 


-SSTTL TEST 6: OSCILLATING SEEK TEST 


SMEAR HHAHHAHHHHAeKeTeKeeeeeeeareneetenenetertenentereneeaeteteneeereneeee 


THIS TEST PERFORMS A SERIES OF SEEK OPERATIONS TO CAUSE AN OSCILLATING 
MOVEMENT OF THE HEAD POSITIONER. 


S RARAAAAAAAAAAESAAAHEAHTARAAEAAAHEAAAAAAHAAAAKRAEHAAHEKAHAAAHEATEeAeEeAeeeAHTeseee 


ee 
7* 
3* 


T6:: 


TEST6: 
16.1: 
16.11: 
L10045: 
16.2: 


L10046: 


R4,CALL.B 
C$ESUB 


C$BSUB 
R4,CALL.C 


C$ESUB 


CSETST 


inal sel pinadeal 
OOM 


3GO0 EXECUTE THE COMMAND 


3GO EXECUTE THE COMMAND 


sUNTIL 
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TESTS 


mr 


WWAWAWAAWNAIRI POP FONOPONUNONNS OO Ot Os 
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Coo OCOCOO COCOCOoCOoOOoOoO 


CSOCOSOOOOOSOSDSCO 
WAAAAANAAAww 
SOSOOOSCOSO 

—_ — oe os ot ot oY 
FESYWNNESS 
WOOL ANEO 


&- SEES 
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005737 


000137 


005005 


004737 
012746 


oo O-000—0000 
Oooo 
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ANAS 
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002250 


015476 
031020 


000010 
000000 


152572 
000001 
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~-SBSTTL TIMING TESTS 


FPMAAASAAAHAAHAAAATE RAHA EHETEHEHAAEAOKAHHHHAHAHHHAHEHTHAHAAHH HEH HTE RAHAT HETE Ss 
*STHE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING 

[*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE "RPO? 

j ENGINEERING SPECIFICAT ION 

THE SE ING WILL BE PERFORMED USING EXPLICIT SEEK 

+ SOPERAT IONS. AT THE COMPLETION OF EAC THE TIM 

SeTESTS THE MINIMUM. MAXIMUM AND AVERAGE Or Imes witt "BE 
SeTYPED, IF TIMTYP=1. 


-SBTTL TEST 7: ROTATIONAL SPEED TIMING TEST 


RARER AHHRAHHAHAERAETEREAAEHAAAATAAAAARRERAEAHAEHAAAAARARAHAKAHAReAKAeeeeTeTeseeese 


THIS Test WILL START A SEARCH TO CYLINDER FC, TRACK FT, SECTOR 
FS. AS SOON AS THE INTERRUPT OCCURS, THE GO IS SET AGAIN 
AND tHe 0 OPERATION IS TIMED. THIS PROCEDURE IS REPEATED 10 


ENSURE iY IS wit ae TOLERA 
16.515 MS/REV + OR = 3 


RATHER RAERAAEAEAAAAAARAAAEEAAEAAAEARTEAERHKREARARARERAHReRAReHeAteeeeneteeeeesese 


if 
te 
3* 
:* TIMES THEN THE a tae Shancls CALCULATED AND CHECKED TO 
i 


T7:: 
TST CLKSTA :KW11-P CLOCK? 
BGT 1$ SYES==START TEST 
TRAP CSEXIT 
~ WORD Va rtow 
1$: JSR 4,SRCHOO :D0 A MASSBUS Nit a RECAL 
BR re SRETURN HERE IF N 
JMP EXI17 [RETURN HERE IF eRROR 
2$ CLR R5 COUNT UP 
MOV #T7A,R3 TIMING LIMITS 
TEST7: MOV #10.,R1 i TIME — 10 SEARCHES 
JSR PC,STRIMR SINIT IAL IZE “THe TIMERS 
JSR PC. STOPCK *STOP THE CL 
‘SETUP VECTOR IN CASE OF CLOCK OVERFLOW 
MOV #PRI06, =(SP) 
MOV #17.7$,-(5P) 
MOV PKV-(§P) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
sSETUP RHXX/RPO7 VECTOR 
MOV #PRIO0,-(SP) 
MOV #DORTI.=(5P) 
MOV RPVEC,-(SP) 
MOV #3,-(5P 
TRAP  C$SVEC 
ADD #10,SP 
MOV FC, aRPOC FC 
MOV FS. =(SP) FS 
MOVB FT. 1 SP) FT 
in’ MOV (SP)+, aRPDA SLOAD FI/FS 
TRAP  C$BSUB 
17.1$: CLR aPKB :START COUNTING AT ZERO 


SEQ 0122 
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0262 
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o-—— OWS 


000550 


SONVENNVSE ONOW 
Sooonoe cof —-— 


000210 


004422 
000001 


000004 
004525 
000001 


000094 
030764 


000020 
000131 


040000 
000040 


002620 
002540 


004461 
000001 


000004 
004525 
000001 


000004 


161450 


002254 


002340 
152312 


152314 


152302 
152274 


L10050: 


17.108: 


17.208: 


17.2: 
17.2%: 
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#131 ,aPKCS 


G 10 


#SEARCH,aRPCS1 


aPKC ,-(SP) 
#101 ,aPKCS 


(SP) +, aPKB 
#B1114,aRPDS 


PC, SAVREG 
#DTADPB,R2 


R5ERRANY 


ont 
#BITS:BIT7,SVSTA 
17.44% 


#SEAERR,-(SP) 
#1,-(SP) 


SP,RO 
CSPNTF 


#4,SP 
#ABOTST,-(SP) 


#1,-(SP) 
SP,RO 
CSPNTF 


#16. ,WCEFLG 


#SEARCH,aRPCS1 
#B1114,aRPDS 
17.2% 


#CLR,@RPCS2 
DTADPB,aRPCS2 


WCEFLG 
1$ 


#SEABAD,-(SP) 
#1,-(SP5 


CSPNTF 


“i, 
SP,R 
CSPNIF 
#4,SP 
17.88 
C$BSUB 
aPKB 


#4,SP 
#ABOTST,-(SP) 
~(SP) 


SEQ 0123 


STOP THE 
;AND RESTORE 
sERROR? 
3;NO--BRANCH 
sSAVE RO-RS 


:f°3 POINTER 
SSAVE ALL WE RHXX/RPO? REGISTERS 


T 
Ted CLE 
RESTORE RO-R5 
FIND OUT WHAT ERROR 


T -RETRY ALLOWED ? 
sBRANCH IS SO 


;RETRY 16 TIMES 
sWAIT FOR INTERRUPT 
sANY ERROR ? 


DRIVE ADDRESS 
sOVER RETRY LIMIT ? 
;BRANCH IF NOT 


EXIT 


;START [HE COUNT AT ZERO 
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030142 
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L10051: 


18: 


17.38: 


17.7%: 


17.8%: 


H 10 


#SEARCH,@RPCS1 
1,aPKCS 

#B1T14,aRPDS 

ite 

mci ane aRrPCs2 
+RESR EG 


'BIT7,SVSTAT 


CEFLG 
aRPCS} 
4, IRPDS 


,O@RPCS2 
PB,aRPCS2 
WCEFLG 


SEQ 0124 


ocoomr » 


CK 


: E 
SAND. BES TONS THE COUNTED VALUE 
s1S “ERR=1°'? 


ENO“ BRANCH 
vE nares 
‘bpp P 


NTER 
SAVE PALL 1? peace REGISTERS 


SMASSBUS CLEA 
sSELEEe DRIVE 


RESTORE RO-R5 
{FIND OUT WHAT ERROR 


RETRY ALLOWED ? 
; BRANCH if wee ABCRT TEST 


7START TO SEARCH 
s ANY ERROR 


CLEAR 
SLOAD THE DRIVE ADDRESS 


sDECREMENT THE RETRY COUNT 
[BRANCH IF NOT OVER THE LIMIT 


EXIT 
UPDATE THE COUNT 
:DON 


‘ye s==G0 TO THE EXIT 
NO, LOOP 


sRESET TIMER TO 4 SEC, CHANGE CLA SERVICE AD 
DROP THE PRIORITY 


SAVE emt 
:6PB POINTER 
> SAVE ALL THE P cereestnated REGISTERS 


:MASSBUS CLEAR 


SEL ECT DRIVE 

;ADDRESS OF SAVED oe TABLE 
TGET CURRENT CYLINDE 

GET CURRENT SECTOR 

ET CURRENT TRACK 


 FRESTORE RO-R5 


3° LEAR THE MASSBUS 


7% SELECT DRIVE 


—— 


JLAO RPO7 FCTNL TES 
T 7: ROTATIONAL SPE 
114 031000 004737 
125 031004 004437 
031010 0024 ¢ 
116 031012 0044 
117 €31016 002502 
118 031020 
119 031020 013746 
O31 868 A Loe 
031030 015746 
031034 012746 
031040 104437 
031042 062706 
120 031946 
031046 104401 


T 
E 


D 


EXIT7: 


110047: 


1 10 


1=JAN-83 11:06:45 PAGE 54-3 


PC,ST.CLK 
R4,TYPTIM 


R4,SPTYP 


RPVEC+2,=(SP) 
#ISRV,=(SP) 
spat ali 


CSETST 


LIZE THE CLOCK 

3 THE TIMES 

HE SPECIFICATION VALUE 
sSETUP RHXX/RPO7 VECTOR 


4 
p 
E 
T 


SEQ 0125 


CZR 
TEST 


J 10 


fua0 RPO7 FCTNL TEST MACRO V04, 00, 1=JAN=83 11:06:45 PAGE 55 


8: ONE CYLINDER SEEK TIMING TEST 


4 
5 
6 
7 
2 
9 
10 
11 
12 031050 
13 031050 005737 002250 
14 031054 003002 
15 031056 104432 
031060 000756 
16 031062 004437 015476 
17 031066 000402 
18 031070 104432 
031072 000744 
19 031074 012703 002442 
20 031100 005037 00224 
21 031104 013737 002204 002632 
22 031112 005737 002204 
23 031116 001407 
24 031120 012737 000105 002622 
25 031126 ; 
031126 104402 
26 031130 004437 014742 
27 031134 
031134 104403 
28 031136 005005 
29 031140 004737 015626 
30 051144 004757 012262 
32 031150 012746 000300 
031154 012746 031650 
031160 013746 012126 
031164 012746 000003 
031170 104437 
z3 081172 062706 000010 
34 031176 012746 000000 
931202 12746 015624 
031206 013746 002644 
031212 012746 000003 
031216 104437 
zs 031220 062706 000010 
: 
38 031224 005237 002632 
39 031230 023737 002632 002206 
40 031236 003063 
41 031240 
031240 104402 
42 031242 005077 160654 


-SBTTL TEST 8: ONE CYLINDER SEEK TIMING TEST 
; seeeeeeeele TEST Ulli Corman fomaame cee CVCLES TO vee ||! 
:e THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
7° CYLINDER BY ONE FROM FC NTIL THE ey tt! 13.8 GREATER THAN THE 
3* CYLINDER ‘LC’, THEN ERSE sete TO CYLINDER DO IT TwICE. 
3* THE TIME TO PERFORM EACH SEEK IS CH acne TO ENSURE IT DOES NOT 
3° EXCEED THE MAXIMUM A | PERMITTED FOR A ONE CYLINDER SEEK. 
se THE TIME MUST BE LESS THAN 4MS. 
se eeeeeaeeaneeereeeerereetteeteKeneaKakaKeenaaeraneeRereraraneeanerarereneeeee 
T8:: 
TST CLKSTA sKW11-P CLOCK? 
BGT 1$ TYES==START TEST 
TRAP CSEXIT 
-WORD 110052-. 
1$: JSR R4,SRCHOO 3D0 A MASSBUS INIT. AND RECAL 
BR 2$ sNO ERROR RETURN 
TRAP CSEXIT 
-WORD 110052-. 
2$: MOV #TIMT10,R3 sPARAMETER POINTER 
TEST8: CLR DOTWO + SET-UP FOR TWO ITERATIONS 
MOV FC, DTADPB+12 sSTART wile BEGINNING CYLINDER 
TST FC ZIF FC <> 0 
BEQ T8.5$ sELSE SK 1P 
18.1 MOV #SEEK,DTADPB+2 ;THEN SEEK TG FC BEFORE TIMING PORTION OF TEST 
TRAP C$BSUB 
JSR RG, DRVCAL sSEEK TO FC 
L10053: 
TRAP CS$ESUB 
T8.5$: CLR RS ;SET THE UP/DOWN SWITCH TO UP 
JSR PCT, STRITMR sINITIALIZE THE TIMER 
JSR PC,STOPCK sSTOP THE CLOCK 
sSETUP VECTOR IN CASE OF CLOCK OVERFLOW 
MOV #PR106,-(SP) 
MOV #18.7$,-(SP) 
MOV PKV,-(SP) 
MOV #3,-(SP 
TRAP C$SVEC 
ADD #10,5S 
sSETUP RHXX/RPO7 VECTOR 
MOV #PRI00,-(SP) 
MOV #DORTI,-(SP) 
MOV RPVEC,=-(SP) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
sSEEK FORWARD: FC ==> LC 
78.1%: INC DTADPB+12 sMOVE TO NEXT CYLINDER UP 
CMP piApeaste. LC 30UT OF CYLINDERS? 
18.2 BGT 18.3% 3sYES, GO SEEK REVERSE 
TRAP C$BSUB 
CLR aPKB sSTART THE COUNTER AT ZERO 


SEQ 0126 


Pd 


VV SSL CO 
MOOD WNOUEW + 


AOC WWW 
WN—OVOONG Ww 


Ano 


ANN 
SSBNAARANSS SoS 
SOSSOSCSOSCOOCOOCOOOOOOOOOoSooooo 


Go000o Occ 
own Wr 


K 10 


7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 55-1 SEQ 0127 
CYLINDER SEEK TIMING TEST 
46 013777 002632 151440 MOV DTADPB+12,aRPDC ;LOAD DESIRED CYLINDER 
ast O1g777 000108 151376 MOV a SEEK arPtsi SSTART A SEEK 
62 012777 000131 160630 MOV #13) ser KCS SSTART THE CLOCK 
70 000001 WAIT [WAIT ON INTERRUPT 
72 017746 160626 MOV aPKC, (SP) ‘GET THE CURRENT COUNT 
76 043777 000101 160614 BIC #101.aPKCS ‘STOP THE CLOCK 
04 012677 160612 MOV (SP)+, aPKB SAND RESTORE THE VALUE 
310 032777 040000 151354 BIT #B1T14 aRPDS SANY DISK ERRORS? 
16 001406 BEQ :NO=-BRANCH 
320 004737 010646 JSR PC. SAVREG [SAVE RO-RS 
324 01270¢ 002620 MOV #OTADPB,R2 :DPB POINTER 
3 0 0047 024472 JSR PC, “ HXX sSAVE ALL THE A semen REGISTERS 
4 O1e777 000040 151326 MOV #CLR,aRPCS2 :MASSBUS CLEAR 
342 013777 002620 151320 MOV DTADPB aRPCS2 :SELECT DRIVE 
350 004737 010700 JSR »RESREG RESTORE RO-RS5 
354 004537 012664 SR R5.ERRANY CFIND OUT WHAT ERROR 
360 002620 DTADPB 
362 L10054: 
362 104403 TRAP  C$ESUB 
364 032737 0000460 002254 BIT #BITS,SVSTAT  ; POSITION ERROR? 
372 001075 BNE 18.9$ ‘YES, ABORT 
374 004737 016076 18.2%: JSR PC, COUNT [COUNT THIS SEEKS TIM 
400 004737 012450 JSR PC, TWOMS sSTALL TwO Teo 
404 000707 BR 18.1$ SLOOP, SEEK FORW 
406 005337 002632 T8.3$: DEC DTADPB+12 *MO OVE TO NEXT CYLINDER DOWN 
412 012705 177777 MOV #-1,R5 SSET UP/DOWN SWITCH TO DOWN 
:SEEK REVERSE: FC <== LC 
416 005337 002632 78.4$: DEC DTADPB+12 sMOVE TO NEXT CYLINDER DOWN 
422 023737 002632 002204 CMP DTADPB+12,FC SOUT OF CYLINDERS? 
430 002474 BLT 18.6$ :YES, EXIT LOOP 
432 18.3 
432 104402 TRAP C$BSUB 
434 005077 160462 CLR aPKB :START THE COUNTER AT ZERO 
440 013777 002632 151246 MOV DTADPB+12, aRPOC LOAD DESIRED CYLINDER 
446 012777 000105 151204 MOV #SEEK,@RPCS1 ‘START A SEEK 
454 012777 000131 160436 MOV #131, aPKCS i START THE CLOCK 
462 000001 WAIT WAIT ON INTERRUPT 
464 017746 160434 MOV aPKC, -(SP) ‘CET THE CURRENT COUNT 
470 042777 000101 160422 BIC #101.aPKCS ;STOP THE CLOCK 
476 012677 160420 MOV (SP)+,aPKB 3; AND RESTORE Lbs ae 
502 032777 040000 151162 BIT #B1T14,aRPDS § :ANY DISK ERRORS 
510 001437 BEQ 18,1 ?NO--BRANCH 
512 004737 010646 JSR PC, SAVREG ::SAVE RO-RS 
516 012702 002620 MOV #DTADPB,R2 ;0PB_ POINTER 
522 004737 024472 JSR aT sSAVE ALL THE Dette REGISTERS 
526 012777 000040 151134 MOV #CLR,aRPCS2 *MASSBUS CLEAR 
534 013777 002620 151126 MOV STADE @RPCS2 SELECT DRIVE 
542 004737 010700 JSR RESREG + :RESTORE RO-R5 
546 004537 012664 SR RS ERRANG sFIND OUT WHAT ERROR 
552 002620 DTADPB 
554 110055: 
554 104403 TRAP  C$ESUB 
556 032737 000040 002254 BIT #BITS,SVSTAT sPOSITION ERROR? 
364 001411 a ta BEQ 18.10 ‘NO, CONTINUE 


L 10 


CZRJLAO RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 55-2 SEQ 0128 
TEST 8: ONE CYLINDER SEEK TIMING TEST 
031566 012746 004544 MOV #POSERR,=(SP) 
§31e95 012746 000001 MOV #1,-(SP5 
031576 01060 MOV 
031600 10441 TRAP CSPNTF 
031602 062706 000004 ADD #4,SP 
87 031606 0004 BR 18.8$ 
88 031610 0047 16076 18.10%: JSR PC, COUNT sCOUNT THIS SEEKS TIME 
89 031614 004737 012450 JSR PC; TWOMS SSTALL TWO MILLISECONDS 
90 0 1620 000676 BR * SLOOP, SEEK REVERS: 
91 031622 00523 002632 18.6$: INC DTADPB+12 [MOVE TO NEXT CYLINDER 
4 031626 005737 002246 TST DOTWO [DONE TWICE? 
93 031632 109450 BMI! 18.8$ SIF MINUS, YES... 
94 031634 012737 177777 002246 MOV #-1,DOTWO ‘MARK THE FIRST ITERATION 
95 031642 005005 CLR RS 'SEEK FORWARD AGAIN 
96 031644 000137 031224 JMP 18.1 SNOW!!! 
98 031650 004737 012324 18.7$: JSR PC, FORSEC sRESET TIMER TO & SEC, CHANGE CLK SERVICE AD 
99 ;DROP THE PRIORITY 
100 031654 012700 000000 MOV #PR100,RO 
031660 104441 TRAP  C$SPRI 
101 031662 004737 010646 JSR PC, SAVREG s SAVE RO-RS 
031666 012702 002620 MOV #DTADPB,R2 ‘DPB POINTER 
031672 004737 024472 JSR PC, SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 
031676 012777 000040 150764 MOV #CLR,aRPCS2 ‘MASSBUS CLEAR 
031704 013777 002620 150756 MOV DTADPB,aRPCS2 ;SELECT DRIVE 
031712 016102 000014 MOV 14(R1), SADDRESS OF SAVED REGISTER TABLE 
031716 016237 000036 002266 MOV 36(R2).CYL.RD :GET CURRENT CYLINDER 
031724 116237 000006 002272 MOVB 6(R2),SEC.RD  :GET CURRENT SECTOR 
031752 116237 000007 002270 MOVB 7(R2), TRK.RD sGET CURRENT TRACK 
031740 004737 010700 JSR PC,RESREG + RESTORE RO-R5 
102 031744 104456 TRAP CSERHRD 
031746 000024 .WORD 20 
031750 006112 WORD €&M20 
031752 007604 WORD DH44 
103 031754 18.88: 
031754 012777 000040 150706 MOV #CLR,aRPCS2 ;CLEAR THE MASSBUS 
031762 013777 002620 150700 MOV DTADPB,aRPCS2 :& SELECT DRIVE 
106 031770 004737 011676 JSR PC,ST.CLK SINITIALIZE THE CLOCK 
105 031774 004437 016370 JSR R4.TYPTIM 760 TYPE THE TIMES 
032000 002442 TIMT10 [POINTER 
106 032002 004437 016240 JSR R4,SPTYP 
107 032006 002510 SP10 
108 sSETUP RHXX/RPO7 VECTOR 
109 932010 013746 002646 MOV RPVEC+2,-(SP) 
032014 012746 022674 MOV #ISRV,-(SP) 
032020 013746 002644 MOV RPVEC,-(SP) 
032024 012746 000003 MOV #3,-(SP) 
032030 104437 TRAP = C$SVEC 
032032 062706 000010 ADD #10,SP 
110 032036 L10052: 
032036 104401 TRAP  CSETST 


CZR 
TES 


M10 
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1 9: AVERAGE SEEK TIME MEASUREMENT TEST 


-SBTTL TEST 9: AVERAGE SEEK TIME MEASUREMENT TEST 


4 
5 
6 
7? 
8 
9 
10 
1} 
18 
14 
15 032040 
16 032040 005737 002250 
17 032044 003002 
18 032046 104432 
032050 000702 
19 032052 004437 015476 
20 032056 000402 
21 032060 104432 
032062 000670 
22 032064 0127035 002452 
23 032070 013701 002256 
24 032074 004737 015626 
¢ 032100 004737 012262 
27 032104 012746 000300 
032110 012746 032536 
032114 0135746 012126 
032120 012746 000003 
032124 104437 
28 032126 062706 000010 
29 032132 012746 000000 
032136 012746 015624 
032142 013746 002644 
032146 012746 000003 
032152 104437 
032154 062706 000010 
30 032160 005037 032754 
31 032164 005237 032754 
32 932170 013777 032754 
3$> 032176 005077 157720 
34 032202 
032202 104402 
35 032204 012777 000105 
36 032212 012777 000131 
37 032220 000001 
38 032222 017746 157676 
39 032226 042777 000101 
40 032254 012677 157662 
41 032240 032777 040000 
42 032246 oo e6 
43 032250 004737 010646 
032254 012702 002620 


WeERARRBRBRARARARAAAAAAEASLARLASARARELARAL ELAR REARS EERE RAR ARRAS A RAR ARR ARR RRR RARE SD 


THIS TEST WILL MEASURE THE AVERAGE SFEK TIME AS FOLLOWS: 


T9:: 


1$: 


2$: 
TESTS: 


WHERE: 


THE 
C 


629 K 629 


TN IS THE MEASURED TIME INTERVAL FOR SEEKING FROM 
YLINDER O TO CYLINDER N OR FROM CYL NT 


0 cyl O. 


2X629 1S THE TOTAL NUMBER OF SEEKS. 


PC,STRIMR 
PC,STOPCK 


#PR106,-(SP) 
#19.7$,-(SP) 


NCCYL 
INCCYL ,@RPDC 
aPKB 


C$BSUB 
#SEEK ,@RPCS1 
#131,aPKCS 


(SP)+,aPKB 
#81114 ,aRPDS 


PC; SAVREG 
#DTADPB,R2 


'WEeARRBRBARABASRARABRAALARLEAALARSARARRARARRERRRER RRR RRR RRA RRR AAA RAR RSA RAR RR ARR ASRS DSS 


3KW11-P_ CLOCK? 
sYES=--START TEST 


;D0_A MASSBUS INIT & RECAL 
RETURN HERE IF NO ERROR 


s;PARAMETER POINTER 

;COUNT AND COEFFICIENT 

; - THE COUNTERS 

;STOP THE CLOCK 

;SETUP VECTOR IN CASE OF CLOCK OVERFLOW 


sSETUP RHXX/RPO7 VECTOR 


ALIZE THE SEEK CYLINDER ADDRESS 
pe THE SEEK CYLINDER ADDRESS 


DDRES 
COUNT AT ZERO 


— me 


START A SEEK 
START THE CLOCK 
WAIT ON INTERRUPT 
STORE THE COUNTED VALUE 


STOP CLOCK 

AND RESTORE THE COUNT 
sERR=1? 

3NO--BRANCH 


77SAVE RO-R5 
:DPB POINTER 


SEQ 0129 


JLAO RPO7 FC 
1 9: AVERAGE 
bieeee 
44 0 04 
45 1 
46 6 : 
47 14 
48 032322 
rs 0333 4 
39 035389 
52 peseee 
032336 
53 032340 
54 032344 
55 beseze 
56 03236 
57 032366 
58 032370 
59 032374 
60 032402 
61 032406 
62 032414 
635 032416 
Recess 
032426 
032432 
032440 
032446 
64 032452 
65 032456 
66 032460 
032460 
67 032462 
68 032470 
69 032472 
032472 
032476 
032502 
032504 
032506 
70 932512 
71 032514 
72 032520 
73 032524 
74 032530 
75 032532 
re 032534 
78 032536 
79 
80 032362 


03254 
81 032550 
032554 


— 
me 


om 
n= 


F RRGSSR SRRAGe 
oF NNOCONSE OCUMNNNS — 
ty 
is 


2 OE 


Mmmm 
WUNNWOUUANNNSONNNNO WWOCWO NMWWwNNWw 


SoSSSSSaSFSSSS535 coooo— 
SN NNO RM NINN ONS OOO 


ee 


004737 


012702 


——$OOno— f£uiow Gooow 
NN O-OW Woon! 
NmNOoe OCFf—Oo —WOoOe 


000040 


004544 
000001 
000004 
177777 


015676 
012450 


012324 
000000 


010646 
002620 


002254 


002254 


L10057: 


19.28: 


19.2: 


L10060: 


19.4$: 


19.3$: 


19,7$: 


PC, SVRHXX 
#CLR,aRPCS2 
DTADPB, aRPCS2 
PC,RESREG 
R5 ERRANY 


PDC 
#SEEK -aRPCSI 
#131,aPKCS 


aPKC ,-(SP) 
#101 ,aPKCS 
(SP)+,aPKB 
#B1T14,aRPDS 
19.3$ 

PC. SAVREG 
#DTADPB,R2 


R5.ERRANY 
C$ESUB 
#BITS,SVSTAT 
19.3% 


#POSERR,-(SP) 
#1,-(SP) 


#-1,R5 

PC ,COUNT2 
PC, TWOMS 
R1 

19.1% 
19.88 


PC ,FORSEC 


#PR100,RO 
C$SPRI 

PC, SAVREG 
#DTADPB,R2 


SsRESTORE RO-RS 
:FINDOUT WHAT ERROR 


sPOSITION ERROR? 
$ e RT TEST 
3SET UP/DOWN SWITCH TO UP 
;UPDATE THE COUNT 

STALL 2 MSEC 


START THE COUNT AT ZERO 
mere See GACK TO THE FIRST CYLINDER 


;;RESTORE RO-R5 
FIND OUT WHAT ERROR 


POSITION ERROR? 
3NO, CONTINUE 


SET UP/DOWN SWITCH TO DOWN 
UPDATE THE COUNT 
# STALL 2 MSEC 


:NO=-BRANCH 
:YES@-EXIT 


RESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD 
DROP THE PRIORITY 


s SAVE RO-RS 
:DPB POINTER 


SEQ 0130 


LAO RPO7 FC 
9: AVERAGE 
anise 
03257 
035000 
suis 
035620 
032626 
x 
83 032632 
032636 
032642 
032646 
032652 
032654 
84 032660 
032662 
032664 
032666 
85 032670 
032670 
032676 
86 032704 
87 032710 
032714 
88 032716 
89 032722 
90 
| 0327e8 
032730 
032734 
032740 
032744 
032746 
2 032752 
032752 
93 
94 032754 


000000 


T MACRO V04.00 1-JAN-83 11:06:45 PAGE 56-2 
IME MEASUREMENT TEST 
447 JSR PC, SVRHXX 
004 150076 MOV #CLR, a@RPCS2 
262 15007 MOV DTADPB,aRPCS2 
00014 MOV 14(R1) .R2 
00036 902 6 MOV 36(R2)CYL.RD 
900006 2 7 MOVB 6(R2) SEC. RD 
000007 00227 MOVB (R2)_ TRK.RD 
010700 JSR PC, RESREG 
002646 MOV RPVEC+2,-(SP) 
022674 MOV #ISRY,=(SP) 
002644 MOV RPVEC ,-(SP) 
000003 MOV #3,-(5P) 
TRAP C$SVEC 
000010 ADD #10,SP 
TRAP CSERHRD 
«WORD 20 
»WORD —EM20 
~ WORD DH44 
19.8$: 
000040 147772 MOV #CLR,@RPCS2 
002620 147764 MOV DTADPB,aRPCS2 
011676 JSR PC,ST.CLK 
016370 JSR RG. TYPTIM 
TIMT11 
016240 JSR R4,SPTYP 
SP11 
002646 MuV RPVEC+2,-(SP) 
022674 MOV #ISRV,-(SP) 
002644 MOV RPVEC.=(SP) 
000003 MOV #3,-(SP 
TRAP CS$SVEC 
000010 ADD 10,5 
110056: 
TRAP CSETST 
INCCYL: .WORD 0 


SEQ 0131 


7SAVE_ALL THE RHXX/RPO7 REGISTERS 
: BUS CLEAR 


C IVE 

ESS OF SAVED REGISTER TABLE 
CURRENT CYLINDER 

CURRENT SECTOR 


ama AOrn 


i§ 


SETUP RHXX/RPO7 VECTOR 


CYL ADR COUNTER 


= 


C11 


Fe ey RPO7 FCTNL TEST MACRO yO 00 1-JAN-83 11:06:45 PAGE 57 SEQ 0132 


MAXIMUM SEEK TIMING TEST 
-S8TTL TEST 10: MAXIMUM SEEK TIMING TEST 


SRARAAAAAAARAREAAAAEHAAAAAEHHAAAAEAAAAAAHARAAAHAAAAHAKRARAAERARAHAATeAAATeEHeTeeee 


4 3 THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER Q 10 
5 3* CYLINDER "LC", THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
§ :* CYLINDER 0. GOTH SEEKS ARE TIMED AND CHECKED TO ENSURE 
ie THEY ARE AHiTHIN THE TOLERANCE ALLOWED FOR T HE MAXIMUM SEEK 
* :* TIME. S  $50uL UN NCE 1S REPEATED 312 TIMES (FOR 
9 ie A TOTAL OF 1 EKS). THE MAXIMUM SEEK TIME MUST BE LESS THAN 
10 * S. "LC® Scrat TO 629 (1 10) 
11 * FOR RPO?" gS 
\§ JF FRAAAAARERAAAAAAETEA ARATE EAHA AEAAAAAAAAAERAAARAAAAEHERAAHHEHEHAHAHAHAERAEAE HES 
1 
14 032756 T10:: 
15 032756 005737 002250 TST CLKSTA :kW11=P CLOCK 
16 032762 0030) BGT 1$ :YES==START TEST 
17 032764 10447 TRAP = CSEXIT 
032766 00064? .WORD 110061-. 
18 032770 00443.) 015476 1$: JSR R4, SRCHOO :D0 A MASSBUS INIT & RECAL 
19 032774 00040? BR 2$ TRETURN HERE IF NO ERROR 
20 032776 104432 TRAP = CSEXIT 
033000 000620 .WORD 110061-. 
21 033002 012793 002462 2$: MOV #TIMT12.R3 ;PARAMETER POINTER 
3¢ 033006 012-01 001000 TEST10: MOV #512.,R SREPEAT "O="LC*=0°° 512 TIMES 
23 033012 004737 015626 JSR PC, STRTMR S INIT. He TIMERS 
24 033016 04737 012262 JSR PC; STOPCK :STOP THE CLOCK 
25 + SETUP VECTOR IN CASE OF CLOCK OVERFLOW 
26 032022 012746 000300 MOV #PRIOG -(SP) 
023026 012746 033442 MOV 0.78, -(SP) 
($3032 013746 012126 MOV tha (SP) 
333036 012746 000093 MOV #3,-(SP 
033042 104437 TRAP - C$SVEC 
033044 062706 000010 ADD ’ 
27 sSETUP RHXX/RPO7 VECTOR 
28 033050 012746 000000 MOV #PRI00,-(SP) 
033054 012746 015624 MOV #DORTI,-(SP) 
033060 013746 002644 MOV RPVEC,-(SP) 
033064 012746 090003 MOV #3,-(5P) 
033070 104437 TRAP = C$SVEC 
033072 062706 000010 ADD 0, 
29 033076 110.1: 
037076 104402 TRAP  C$BSUB 
30 033100 005077 157016 T10.1$: CLR oC ee sSTART COUNTING FROM ZERO 
31 033104 013777 002206 147602 MOV PDC zMAX IMUM CYLINDER 
2 033112 012777 000105 147540 MOV TeeeK. Ot ecst [START A SEEK 
33 033120 012777 000131 156772 MOV #131, aPKCS STAR THe CLOCK 
34 033126 000001 WAIT WAIT ON INTERRUPT 
35 033130 017746 156770 MOV aPKC, -(SP) SAVE THE CLOCK 
36 033134 042777 000101 156756 BIC #101. aPKCS :STOP THE CLOCK 
37 033142 012677 156754 MOV (SP)+, aPKB > AND RESTORE THE CGuieSED VALUE 
38 033146 032777 040000 147516 BIT wBitit, aRPDS SERR=1? 
39 033154 001426 BEQ 10.2% :NO=-BRANCH 
40 033156 004737 010646 JSR PC, SAVREG t:SAVE RO-RS 
033162 912702 902620 MOV #DTADPB,R2 ;bPB POINTER 
033166 004737 024472 JSR BC» SVRHKX [SAVE ALL THE ghiXX/RPO? REGISTERS 
033172 o1g777 000040 147470 MOV #CLR,aRPCS2 SMASSBUS CLEAR 
033200 013777 002620 147462 MOV DTADEB aRPCSZ [SELECT DRIVE 
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O: MAXIMUM SEEK TIMING TEST 
03 004737 019700 JSR PC, RESREG sRESTORE RO-R5 
41 0 98 004537 8} 664 JSR RS ERAN [FIND OUT WHAT ERROR 
4g 033216 002620 DTADPB 
430 0 L19062: 
0 1 reat] TRAP CSESUB 
464 033222 032737 000040 002254 BIT #BITS,SVSTAT  ;POSITION ERROR? 
45 03 901 06e GNE 110.48 :YES, ABORT TEST 
46 03 3 00500 110.28: CLR RS SSET THE UP/DOWN SWITCH TO UP 
47 033234 004737 016076 JSR PC, COUNT [UP THE COUNT 
rr 83 04 004737 012450 110.2 JSR PC, TWOMS sSTALL FOR TWO MILLISEC 
035 44 104402 TRAP  (C$BSUB 
50 0 46 005977 156650 CLR aPKB :START COUNT AT ZERO 
51 035 52 005077 147436 CLR aRPDC SBEGINNING CYLINDER IS 0 
3g 033256 012777 900105 167374 MOV #SEEK ,aRPCS1 [START A SEEK 
é 035264 012777 000131 156626 MOV #131, aPKCS SSTART THE CLOCK 
54 033272 000001 WAIT sWAIT ON INTERRUPT 
55 033274 017746 156624 MOV aPKC,-(SP) [SAVE THE CLOCK 
56 033300 042777 000101 156612 BIC #101 ,aPKCS :STOP THE CLOCK 
57 033306 012677 156610 MOV (SP)+,aPKB sNOW RESTORE CLOCK 
58 033312 032777 040000 147352 BIT #BIT14,aRPDS =: ""ERR''=1? 
59 033320 001437 BEQ 110.38 =NO=-BRANCH 
60 033322 004737 010646 JSR PC, SAVREG T;SAVE RO-RS 
033326 702 002620 MOV #OTADPB,R2 :DPB POINTER 
033332 04737 024472 JSR PC, SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 
033336 012777 000040 147324 MOV #CLR,aRPCS2 sMASSBUS CLEAR 
033344 013777 002620 147316 MOV DTADPB.aRPCS2 :SELECT DRIVE 
033352 004737 010700 JSR »RESREG S:RESTORE RO-R5 
61 033356 004537 012664 JSR R5,ERRANY sFIND OUT WHAT ERROF® 
62 033362 002620 DTADPB 
63 033364 110063: 
033364 104403 TRAP = CSESUB 
64 033366 032737 000060 002254 BIT #BITS,SVSTAT sPOSITION ERROR? 
65 033374 001411 BEQ 110.38 :NO, CONTINUE 
66 033376 110.48: 
033376 012746 004544 MOV #POSERR,-(SP) 
033402 012746 000001 MOV #1,-(SP5 
033406 010600 MOV SP,RO 
033410 104417 TRAP CSPNTF 
033412 062706 000004 ADD #4,SP 
67 033416 000453 BR 110.88 
68 033420 012705 177777 110.3$: MOV ¥-1,R5 :SET THE UP/DOWN SWITCH TO DOWN 
69 033424 004737 016076 JSR PC,COUNT sUPDATE THE COUNT 
70 033430 004737 012450 JSR PC, TWOMS ‘STALL FOR TWO MILLISEC 
71 033434 005301 DEC R1 F 3 
72 033436 003220 BGT 110.1% ‘NO=-BRANCH 
o 033440 000442 BR 110.8% sYES--EXIT 
75 033442 004737 012324 110.7%: JSR PC ,FORSEC sRESET TIMER TO & SEC, CHANGE CLK SERVICE AD 
76 sDROP THE PRIORITY 
77 033446 012700 000000 MOV #PRIOO,RO 
033452 104441 TRAP  C$SPR 
78 033454 004737 010646 JSR PC, SAVREG T:SAVE RO-RS 
033460 012702 002620 MOV #OTADPB,R2 :DPB POINTER 
033464 004737 024472 JSR PC, SVRHXX SSAVE ALL THE RHXX/RPO7 REGISTERS 
033470 012777 000040 147172 MOV #CLR,aRPCS2 [MASSBUS CLEAR 
033476 013777 002620 147164 MOV DTADPB,aPPCS2 sSELECT DRIVE 
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NSFER SEEK TEST 
.SBTTL TEST 11: MID-TRANSFER SEEK TEST 
4 See ReReAeTAeeeeeeeaeeeeeaaeaeeeaeteaetaeeaeeeaeeneaenerneneteerereee 
STHIS TEST EXECUTES READ-DATA COMMMANDS TO EVERY TRACK IN THE 
SFIRST(STARTING) CYLINDER. 
:THE FULL TRACK TRANSFER IS MADE IN 2 PASSES: 
: 1ST PASS, SECTORS: 00. THRU 
; 2ND PASS, SECTORS: 25. THRU (49. +1) 
[THE PARAMETERS: 
: STARTING CYLINDER = FC 
: STARTING TRACK = FT 
: ENDING TRACK = LT 
: INCREMENT TRACK s 1 
; STARTING SECTOR = 0 
SUeeeeeeeenaeneneereeereetererenenetereneteeeneeeneeeneeeeerereenereeeeeerete 
Ti1:: 
004737 020226 JSR PC,RPINIT sINITIALIZE THE SUB-SYSTEM 
004737 012262 JSR PC, STOPCK ‘STOP THE CLOCK 
113737 002654 002620 MOVB  DRVNO,DTADPB — ;DRIVE S 
M1737 000171 002622 MOVB #RDDAT,DTADPB+2 ;READ-DATA COMMAN 
013737 002344 002624 MOV TRKWC,DTADPB+4 ;ASSUME HALF FULL TRACK 
012737 042610 902626 MOV #DBUFF,DTADPB+6 ;BUFFER ADDRESS 
116737 000000 002630 MOVB $#0,DTADPB+10 SECTOR ADDR 
113737 002212 002631 MOVB FT. DTADPB+11 STRACK ADDR 
013737 002204 002632 MOV FC, DTADPB+12 “CYLINDER ADDRESS 
012737 002744 002634 MOV #REG,DTADPB+14 :RHXX/RPO7 REGISTER 
005037 002246 es CLR DOTWO [RESET 2 ITERATIONS CONTROL 
104402 oe om TRAP  C$BSUB 
004437 014742 JSR R4,DRVCAL ;START A DATA TRANSFER 
005737 002246 TST pOTwO SDONE HALF TRACK TWICE? 
00411 BMI ‘YES, EXIT 2 ITERATIONS LOOP 
005337 002246 DEC DOTWO NO, MARK 2ND ITERATION 
112737 000031 002630 MOVB #25.,DTADPB+10 :TFR 2ND HALF OF TRACK 
062737 177400 002624 ADD #-256. ,DTADPB+4 :YES, SET WC FOR 2ND HALF TRACK + 1 SECTOR 
000762 1$: BR 111.28 ‘LOOP TO TFR 2ND HALF TTRACK 
005037 002246 2$: CLR sRESET PARAMETERS FOR 1ST LOOP 
105037 002630 CLRB  DTADPB+10 SRESTART AT SECTOR 0 
162737 177400 002624 lai UB #-256.,DTADPB*4 :WC FOR 1ST HALF TRACK 
L $ 
104403 TRAP  C$ESUB 
113702 002631 111.5$: MOVB  DTADPB+11,R2  ;UPDATE THE TRACK ADDRESS 
063702 002216 ADD 1T,Re2 [ADD THE DESIRED TRACK NUMBER 
02370¢ 002214 CMP LT,R2 SOVER THE TRACK LIMIT? 
10140 BLOS  ExIT11 ‘BRANCH IF SO 
110237 092631 MOVB = R2, DTADPB+11 ‘TO NEXT TRACK 
000740 BR 111.2% *LOOP BACK 
004737 020226 EXIT11: JSR PC,RPINIT 
110064 
104401 TRAP = CSETST 


1LA0 RPO7 FCTNL TEST 
T 12: ERROR REGISTER 
4 
6 
7? 
& 
9 ecoEe 
16 034036 004737 
14 034042 004737 
i tics 1135 7 
15 034054 112737 
14 3 94473 012737 
15 034070 012737 
16 034076 115737 
17 034104 413! 7 
18 034112 01 ats 
19 034120 012737 
20 034126 
Ose 168 104402 
21 034130 004737 
$$ 034134 032762 
23 034142 001005 
24 034144 104456 
634146 000062 
034150 007246 
034152 000000 
25 034154 
034154 104403 
26 034156 032762 
27 034164 001403 
28 034166 004537 
29 034172 posse 
30 034174 062757 
31 034202 
034202 104402 
32 034204 004737 
$2 034210 032762 
4 034216 001005 
35 034220 104456 
034222 000063 
034224 007340 
et 000000 
3¢ 034230 
034230 104403 
37 934232 042762 
38 034240 001005 
39 034242 032762 
40 034250 001001 
41 034252 000403 
4g 034254 004537 
43 034260 002620 
44 034262 
45 034262 
034262 
034262 104401 


SMAOA Onn 
FAWSLOO SNe 


040090 


001000 


000200 


012664 


ooocoooo 
oOoooooeo 
Rorororepnoforery 
PAACAAOASO 
WWNWWnononen 
Fro SVS 


000012 


002624 


000014 


000014 
000042 


-00 1-JAN-83 11:06:45 PAGE 59 


G6 11 
SEQ 0136 


-SBTTL TEST 12: ERROR REGISTER BIT TEST 


**MReeeeeeReeeteetetereeeeeereteereeteketenenetenetentereneneeeseneeerteneeeeese 


THIS TEST FORCES LBT & AOE ERROR BITS THAT ARE NOT FULLY CHECKED BY THE 
MICRO DIAGNOSTIC 


ee 

;* 
;* 
-@ 
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LBT AOE: 


$s 
READ THE LAST USER SECTOR WITH A WORD COUNT >256. 


© SPAR AHREHAEAEAAHAHKAHEREKERAARAAHAHHHHeAReRAteKeneneeeeeeeeeeeeneeteeeeeese 


T12:: 


T12.1: 


110067: ~ 


TST12: 


L10070: 
TSTI2A: 


PC,RPINIT THE SUB-SYSTEM 
T LOCK 


E 
C 
CMD IN DPB 

oe iee -DTADPB+4 get WORD COUNT TO READ ONE SECTOR 


NT1.DTADPB+ [1.E.. CYL 629, TRK 31, SEC 49 

NC1.DTADPB+12 

#REG,DTADPB+14 ;POINT TO RHXX/RPO7 REG TABLE SAVED ON CMD DONE 

C$BSUB 

PC, EXECMD ZEXEC CMD 

#L§T,12(R2) *LBT=1? 

TST12 [0K, SKIP 

CSERHRD 

50 

ESO 

0 

CS$ESUB 

#ERR, 12(R2) SOTHER ERRORS? 

1$ =NO, SKIP 

R5, ERRANY [YES, FLAG THEM 

#SCTRWC ,DTADPB+4 ;SET DPB TO READ BEYOND LAST SECTOR 

C$BSUB 

PC, EXECMD SATTEMPT TO READ PAST LAST SECTOR 

WADE , 14(R2) SAOQE=1? 

TSTIOA t0K, SKIP 

CSERHRD 

51 

EMS1 

0 

C$ESUB 

BADE , 14(R2) :CLEAR ERROR IN ERROR TABLE 
[FLAG OTHER ERROR, IF ANY 

#OVC,42(R2) >(ER2)(ER3) = 0 ? 

1$ ‘NO, FLAG OTHER ERRORS 

2$ [SKIP ON (ER1)(ER2Z)(ER3) = 0 

R5 ,ERRANY [FLAG ERRORS 

CSETST 
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SEQ 0137 


T/RETURN=TO-CENTER@LINE TEST 
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ROR HRAREHARHHAHETATAAAACEHAATAAAAHHeeeAeeAeeAKeteneeeareneneeneereneeeteresese 


i ISSUE AN OFFSET COMMAND, PROCESS THE ATTENTION INTERRUPT AND CHECK FOR 
ie ERRORS VERIFY THE ASSERTION OF OM OF RPDS. 
:* ISSUE THE RETURN TO CENTER LINE COMMAND PROCESS THE ATTENTION INTERRUPT 
ie AND CHECK FOR ERRORS, VERIFY THE RESETTING M. 
Se eenenenssenctsinerentaneseberscsarsonbentenqorssecessssennstineiihhesenennta 
T13:: 
JSR PC ,RPINIT SINITIALIZE THE SUB-SYSTEM 
MOV #i6.,1TCNT 7SET ITERATION COUNT 
TEST13: MOV DRVNO,DTADPB :GET DRIVE NUMBER 
MOVB FS,DTADPB+10 OPERATE ON FS,FT.FC 
MOVB FT.DTADPB+1 
MOV FC DTADPB+12 
MOV #REG,DTADPB+14 POINTER TO RHXX/RPO7 REG TABLE SAVED UN CMD DONE 
= MOV #OFFSET,DTADPB+2 SLOAD OFFSET C 
TRAP  C$BSUB 
JSR R4,DRVCAL :START A DATA TRANSFER 
MOV DTADPB+14,R2 :POINTER TO RHXX/RPO7 REG TBL SAVED ON CMD DONE 
BIT #OM,12(R2) 30 
BNE TST13 + 
TRAP  CSERHRD 
.WORD 54 
[WORD EMS4 
“WORD 0 
110072: 
TRAP C$ESUB 
Ts115: MOV #RIC,DTADPB*2 LOAD RETURN TO CENTER LINE CMD 
TRAP SUB 
JSR 4,DRVCA ;START A DATA TRANSFE 
MOV DTADPB+14,R2 :POINTER TO Buy A REG TBL SAVED ON CMD DONE 
BIT #OM, 12(R2) [0M - 0? 
BEQ 113.1$ :0K 
TRAP  CSERHRD 
.WORD 55 
“WORD EMSS 
“WORD 0 
110073 
TRAP C$ESUB 
TRAP CSEXIT 
.WORD 110671-. 
113.18: DEC ITCNT sDONE ITERATIONS ? 
BNE TEST13 :BR IF NO 
EXIT13: 
L10071: 
TRAP CSETST 


I 11 
RPO7 FCTNL TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 61 SEQ 0138 
: RANDOM READ TEST 


LA 
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-SSTTL TEST 14: RANDOM READ TEST 


pe eeeeeeaerererrereeeserereerereneeeeeTeeeeeereerertereneerrerereererenteeeeee 
STHIS TEST RANDOMLY SELECTS A SECTOR ADDRESS: CYL BETWEEN FC AND LC, 
; TRK BETWEEN FT AND LT, 
SEC BETWEEN FS AND LS 


[IF THER 


0 
4 
1 
2 
5 
4 
Q 
7 —E 1S NO P-CLOCK, IT THEN EXECUTES A READ DATA COMMAND TO 1 SECTOR 
8 SAFTER EACH READ=DATA COMMAND, THE PROGRAM VERIFIES THE 
9 ‘BUS, DATA AND VERIOUS RHXA/RPO7 REGISTERS. 
10 TIF THERE IS A P-CLOCK,THE PROGRAM PERFORMS AN ADDRESS MARK DETECTION TEST: 
11 [IT VERIFIES THAT DATA CAN BE READ CORRECTLY WITHIN THE S4ME DISC REVOLUTION 
lg SAS A SECTOR DETECTION. SEARCH FOR THE LOGICAL SECTOR PRECEDING THE SELECTED 
1 >SECTOR TO READ, THEN READ THE SELECTED SECTOR. TIME THE SEARCH DONE-READ DONE 
14 :T0 BE WITHIN A DISC REVOLUTION. FLAG LOST REVOLUTIONS. 
15 ss eteeeeneneeeereeeereererererereeeeeRAAneneeAanenanaaneeenaneanteneeraererenenee 
16 
17 034454 T14:: 
18 034454 013737 002244 002240 MOV XTIMES,ITCNT :SET ITERATION COUNT 
19 034462 005737 002250 TST CLKSTA *P=CLK PRESENT? 
20 034466 003036 BGT TSTIGA ‘YES, EXEC RAND READ TEST + AD MARK DET 
21 034470 004737 020226 JSR PC,RPINIT ‘INITIALIZE THE SUB-SYSTEM 
22 034474 004737 012262 JSR PC. STOPCK “STOP THE CLOCK 
23 034500 113737 002654 002620 MOVB = DRVNO, DTADPB sLOAD THE DRIVE ADDRESS 
24 034506 112737 000171 002622 MOVB  #RDDAT,DTADPB+2 ; EXECUTE READ COMMAND 
25 034514 012737 177400 002624 MOV #-256..DTADPB+4 :WORD COUNT = * SECTOR 
26 034522 012737 042610 (02626 rOoV #DBUFF.DTADPB+6 :BUFFER ADDRESS 
7 034530 012737 002744 002634 MOV WREG,DTADPB+14 :RHXX/RPO7 REGISTER TABLE 
29 034536 004437 017544 TESTI4: JSR R4,RANADR sGENERATE A STARTING ADDRESS 
30 034542 114.1: 
034542 104402 TRAP C$BSUB 
31 034544 004437 014742 JSR R4,DRVCAL ;START A DATA TRANSFER 
32 034550 110075: 
034550 104403 TRAP C$ESUB 
23 034552 005337 002240 EXIT14: DEC ITCNT :DONE ITERATIONS ? 
34 034556 001367 BNE TEST14 :BR IF NO 
35 034560 104432 TRAP = CSEXIT 
36 034562 001206 -WORD 110074-. 
37 034564 004437 015476 TSTIGA: JSR R4,SRCHOO :MASS BUS INIT & RECAL 
38 034570 000402 BR 1$ [NO RECAL ERROR, CONTINUE 
39 034572 000137 035742 JMP KITI4 SEXIT ON RECAL ERROR 
41 936576 004737 015626 1$: JSR PC, STRIMR sINIT THE TIMERS 
42 0346602 042777 000101 155310 BIC #161 aPKCs ‘STOP THE P=CLOCK 
43 ‘SETUP VECTOR IN CASE OF CLOCK OVERFLOW 
44 034610 012746 000300 MOV #PRI06,-(SP) 
034614 012746 035542 MOV #114.7$,-(SP) 
034620 013746 012126 MOV PkV,=-(SP) 
034624 012746 000003 MOV #3,-(SP) 
034630 104437 TRAP = C$SVEC 
034632 062706 000010 ADD 10, 
45 SETUP RHXX/RPO7 VECTOR 
46 034636 012746 000000 MOV #PR100,-(SP) 
034642 012746 015624 MOV #DORTI,<(SP) 
0340466 013746 002644 MOV RPVEC,-(SP) 
034652 012746 000003 MOV #3,-(5P) 
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TEST 14: RANDOM READ TEST 
034656 104437 TRAP C$SVEC 
034660 062706 000010 ADD #10,SP 
rt 034664 005005 CLR R5 :SET COUNT-UP FLAG FOR COUNT SUBR 
49 sREDUCE THE TARGET SECTOR BY 2, TO COMPUTE THE VALUE OF THE 2ND LOGICAL 
20 SECTOR. 
52 034666 004437 017544 714.18: JSR R4,RANAD :GEN A RAND ADR: CYL, SEC 
53 034672 113701 002630 MOVB DT Anebe lO, R1 3GET TARGET SECTOR L sone sé TO READ 
54 034676 032777 000004 145766 BIT #ILV,aR PDs :1S INTERLEAVED SECTOR ENABLED ? 
55 034704 001006 BNE sBR IF YES 
56 034706 162701 000002 SUB #2,R1 sBACKUP THE SECTOR ADDRESS FOR THE SEARCH 
57 034712 002902 BGE sBR IF < SECTOR 
58 034714 062701 000062 ADD #50.,R1 zADJUST FOR ADDRESS BEFORE SECTOR 0 
Fe 034720 000411 1$: BR 4$ sEXIT 
61 034722 005701 2$: TST R1 :1S IT SECTOR ADDR O ? 
6¢ 034724 001405 BEG 3$ sBR IF YES 
63 034726 162701 000031 SUB #25.,R1 :1S IT SECTOR ADDR 25 ? 
64 034732 901002 BNE :BR IF NO 
65 034734 062701 000031 ADD #25.,R1 sADJUST FOR THE ADDRESS BEFORE SECTOR O 
66 034740 062701 000030 3$: ADD #24.,R1 sREDUCE THE TARGET SECTOR BY ¢ 
66 034744 4$: 
68 sPREPARE TO SEARCH 
69 034744 714108: 
034744 114.2: 
0347 104402 TRAP C$BSUB 
70 034746 013777 002632 145740 MOV DTADPB+12,aRPDC ; 
71 034754 110146 MOVB R1,-(SP) WERE peecton 
72 034756 113766 002631 000001 MOVB DTADPB+11,1(SP) + AN ND T 
73 034764 012677 145676 MOV (SP)+,@RPDA [LOAD TRK/SEC 
74 034770 012777 177400 145664 MOV #-256. ,aRPwC sREAD 1 SECTOR 
75 034776 012777 042610 145660 MOV #DBUFF ,aRPBA :SET DATA BUFFER ADR 
76 035004 012703 002472 MOV #T1420,R R3 ‘TIMING LIMITS FOR COUNT SUBR 
44 035010 012777 000006 155104 MOV #6,aPK SALLOW > 6 REVOLUTIONS PER SEARCH: 
79 73 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS) 
°° +3 FOR WORST CASE SEARCH(SECT CMP ERR OR HDR CRC ERR) 
82 035016 012777 000105 155074 MOV #105,aPKCS ¢START ety eces IE,COUNT DOWN,LINE FREQ 
83 035024 012777 000131 145626 MOV #SEARCH,aRPCS1 3 START A SEAR 
84 035032 000001 WAIT WAIT ON INTERRUPT 
85 035034 017746 155064 MOV aPKC ,-(SP) + SAVE be ret 
86 Be2ns0 042777 000101 155052 BIC #101, aPKCS :STOP T HE CLO 
87 035046 012677 155050 MOV (SP)+ = D RESTORE THE COUNTED VALUE 
88 035052 032777 040000 145612 BIT #B1T1 14.0 : ERROR 
89 035060 001533 BEQ 114118 ERO RANCH 
90 035062 004737 010646 JSR PC,SAVREG +: SAVE RO-R5 
035066 012702 002620 MOV #DTADPB,R2 :DPB POINTER 
035072 004737 024472 JSR PC, SVRHXX SAVE ALL THE -Minn/nro? REGISTERS 
035076 Bigeee 000040 145564 MOV #CLR,aRPCS sMASSBUS CLEAR 
035104 013777 002620 145556 MOV DTADPB, aRPCS2 sSELECT DRIVE 
035112 004737 010700 JSR PC,RESREG + RESTORE RO-R5 
91 035116 004537 012664 JSR R5,ERRANY 
92 035122 002620 DTADPB :FIND OUT WHAT ERROR 
93 035124 L10076: 
035124 104403 TRAP ($ESUB 


AO RPO7 FC 
14: RANDOM 
94 035126 
95 S32) 4 
96 0351 
Ba2ice 
035146 
832125 
035152 
97 035156 
035162 
035166 
035170 
035172 
98 035176 
99 935202 
100 035202 
101 035210 
102 
103 
104 
105 
106 035216 
107 035224 
108 035232 
109 035234 
110 035240 
111 035246 
112 035252 
113 035260 
114 035262 
115 035270 
116 035276 
117 035302 
118 035304 
035310 
035314 
035316 
035320 
119 035324 
035330 
035334 
035336 
035340 
120 035344 
121 935346 
035346 
122 035350 
123 035356 
124 035362 
125 035370 
126 035376 
127 035400 
128 035404 
129 035412 
130 035416 
131 035424 
132 035426 
035432 


— 


QONNNNNO NTO 


OouUwNNN 


000210 


004422 
000001 


004461 
000001 


000004 
004525 
000001 


000004 


002254 


154652 
145412 


145400 
145372 


145310 
145270 
154522 
154506 
145246 


1$: 
2$: 


114.3: 


T 
714118: 
C 
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#BITS!BIT7,SVSTAT 
#SEAERR ,=(SP) 


#i,-(SPS 
SP-RO 
CSPNTF 
#4,5P 
#ABOTST 
#1,-(SPS 
CSPNTF 
#4,SP 
114.88 


#16. ,WCEFLG 
KB 


#6,aP 


#105,aPKCS 
#SEARCH,@RPCS1 


aPKC ,-(SP) 


#101. aPKCS 
(SP)+,aPKB 
#BIT14,aRPDS 
T1411$ 
#CLR,a@RPCS2 
DTADPB, aRPCS2 
WCEFLG 


2$ 
rt ee 75 Salat 


#1,-(SP 


C$B8SUB 
DTADPB+10,aRPDA ; 
aPK 
#RDDAT,aRPCS1 


#121,aPKCS 


aPKC ,-(SP) 
#101,aPKCS 


(SP) +, aPKB 
#B1T14 aRPDS 
11412$ 


PC, SAVREG 
#DTADPB.R2 


-(SP) 


“RETRY ALLOWED ? 
:BRANCH {S SO 


RETRY 16 TIMES 


ALLOW > 6 REVOLUTIONS PER SEARCH: 


33 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS) 
335 FOR WORST CASE SEARCH(SECT CMP ERR OR HDR CRC ERR) 


€ Lt a oeaeadl DOWN,LINE FREQ 
;WAIT ON ot rt 


sSTART P-CLOCK 
EAR 


;DRIVE ADDRESS 


;OVER RETRY 


LIMIT ? 


;BRANCH IF NOT 


sEXIT 


: 1? 
3NO--BRANCH 


7 SAVE RO-R5 
;DPB POINTER 


T TO READ 


ere COUNT 
LOCK: 1E=1,UP,SINGLE,10US 
ERRUPT 


HE CLOCK 
oe RESTORE THE COUNTED VALUE 


OCK 
THE COUNTED VALUE 


SEQ 0140 


om 
eS 


: RANDOM REA 
035436 004737 
See¢e pigeee 
035450 015777 
832428 eg 

133 055462 004557 
134 035466 002620 
135 035470 
035470 104403 
136 035472 052737 
137 035500 001411 
138 035502 012746 
832208 012746 
035512 010600 
035514 104417 
035516 062706 
+ 4 035522 000451 
141 035524 004737 
142 035530 021237 
143 035534 002044 
re 935536 000137 
“ss 035542 004737 
148 035546 012700 
035552 104441 
149 035554 004737 
035560 012702 
035564 004737 
035570 012777 
035576 015777 
35604 016102 
035610 016237 
035616 116237 
035624 116237 
035632 004737 
150 035636 104456 
035640 000024 
035642 006112 
035644 007604 
151 035646 
035646 012777 
035654 0135777 
132 935662 004737 
15? 035666 005737 
154 035672 001423 
155 035674 023727 
156 035702 001405 
157 035704 104456 
035706 000064 
035710 907432 
035712 010532 
158 035714 000404 
159 035716 
035716 104457 
035720 000065 
035722 007432 


000040 
004544 
000001 
000004 
016076 
002244 
034666 
012324 
000000 
010646 


14 
103840 


002254 


000001 


110077: 


714128: 


714.78: 


114.88: 


2$: 
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PC. sv RHXX 
bese 
DIADEE. aRPCS2 


REG 
RS, ERRANY 


SESUB 

#BITS,SVSTAT 

#POSERR,=(SP) 
PS 


PC,,FORSEC 
#PR100,R0 
C$s 


1 gamrtantnas REGISTERS 


:SAVE ALL THE 

;MASSBUS CLE 

SSELECT DRIVE 
“RESTORE RO-RS 
{FIND OuT WHAT ERROR 


POSITION ERROR? 
:NO, CONTINUE 


;COUNT TIME sie DONE 


SREPEATED 1024 
:YES, CONCLUDE TEST 
:NO, CONTINUE 


RESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD 


DROP THE PRIORITY 


33 SAVE caseh 


;DPB_POIN 


SAVE ALL "THE H cmainatud REGISTERS 


:MASSBUS che LEAR 


3SEL ECT 


:GET CURRENT 
:GET CURRENT SECTOR 
:GET CURRENT TRACK 
7;RESTORE RO-R5 


DRIVE 
sADDRESS OF tg — TABLE 


LOST? 


SEQ 0141 


NNAOUME SEE Ww 


M11 
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- .WORD DHS52 
016370 JSR RG, TYPTIM :GO0 TYPE THE TIMES 
71420 SPOINTER 
016240 JSR R4,SPTYP 
«8 $1420 
K1T14: sSETUP RHXX/RPO7 VECTOR 
002646 MOV RPVEC+2,-(SP) 
022674 MOV #ISRV,<(SP) 
002644 MOV RPVEC,=(SP) 
000003 MOV #3,-(SP) 
TRAP = C$SVEC 
000010 ADD #10,SP 
L10074: 


TRAP CSETST 


au 
mo 

~ 
<7 
crn 


4 
é 
8 
4 
10 
\ 
13 
14 
15 
16 
17 
18 
19 035772 
20 035772 
$1 035776 
13 036002 
23 036010 
24 036016 
25 036024 
26 036032 
27 036040 
28 036046 
29 036052 
30 036060 
31 036062 
32 036070 
33 036072 
036074 
036076 
036100 
34 036102 
35 036104 
36 036112 
37 036120 
036120 
38 036122 
39 036126 
936 1¢8 
4C 036130 
41 93618 
42 036136 
036136 
43 036140 
44 036146 
45 036152 
036152 
46 036154 
47 036160 
48 036162 
49 036170 
50 036172 


OWNNANAWw 


SSRAAEUSRGSSSSSSS 


SN 
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INDER ADDRESSING T 


000094 


100600 
000105 


014742 


002636 


002262 
002631 


002620 
002622 


002622 


002631 


»SBTTL 


N11 
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TEST 15: FE CYLINDER ADDRESSING TEST 


© SSSR HHHAAAAAHEHSHEHAHTAAAAHAAEARAEAAHAAHAAAAAKRERAAAHAHHAReRATAReeKeseAAAeeeeeees 


THIS TEST LOCATES THE FE CYLINDERS; 
THE FE CYLINDERS ARE CYL 630 AND 631, 


AT THE FIRST TEST CYCLE, THE TEST SETS 
"DMD" BIT OF THE RPMR REGISTER IN ORDER TO ACCESS 


FE CYLINDERS. 

THEN, THIS TEST EXECUTES READ HEADER AND DATA COMMANDS 
SEQUENTIALLY TO VERIFY THE ADDRESSING OF THE SECTOR 0 
F EACH TRACK ( 0 TG 351 ) ON THE FIRST FE CYLINDER. 

AT THE SECOND TEST CYCLE 


A SEEK COMMAND IS EXECUTED TO ACCESS THE SECOND FE CYLINDER. 


PL eeeeeeaeeeeeeesereeteeeereeeeAKeAeKaKaKeneKneaneeneeaneeaeeKereneetenseeeere 


T15:: 


TESTIS: 


18: 
115.1: 


L10101: 


115.2: 


1$115: 
110102: 


JSR PC,RPINIT sINITIALIZE THE SUB-SYSTEM 
JSR PC STOPCK ‘STOP THE CLOCK 

MOV »  LTCN SET ITERATION COUNT 

MOVB  ODRVNO,DTADPB LOAD THE DRIVE ADDRESS INTO DPB 
MOV #SCTRWC ,DTADPB+4 3256 WORDS 

MOV #DBUFF ,OTADPB+6 ;BUFFER ADDRESS 

"ov #0,DTADPB+10 STRACK 0, SECTOR 

MOV NC2,DTADPB+12 ASSUME NO FIX HEAD OPTION 
MoV DRVNO,R4 [TO FIND OuT FIX HEAD OPTION 
CMP #>,DRVTYP(RG) BRANCH IF NO FIX HEAD 

CMPB = #4, DRVTYP(R4) DOES IT CONTAIN FIX HEAD 
BEQ 1$ [BRANCH IS SO 

TRAP —- CSERDF 

«WORD 36 


WORD &M36 
D OH25 


.WOR 

TRAP CS$OCLN 

BIS #0MD ,DTADPB SET MAINTENACE MODE FLAG AT THE 2ND BYTE 
MOVB @SEEK,DTADPB+2 ;90 AN EXPLICIT SEEK 

TRAP C$BSUB 

JSR R4,DRVCAL START A DATA TRANSFER 

TRAP CSE SUB 

TST DTADPB+16 sANY ERROR CONDITION EXISTS ? 
BM! ExIT15 sEXIT IF SO 

TRAP C$BSUB 

MOVB #RDHD,DTADPB+2 ;READ THE HEADER AND DATA 

JSR R4,DRVCAL START A DATA TRANSFER 

TRAP C$ESUB 

1ST DTADPB+16 sANY ERROR 

BM] EXIT15 EXIT IF SO 

C(MPB NI1,DTADPB*’? LAST TRACK CHECKED ? 

BLOS 1$ BRANCH IF NOT 

INCB DTADPB+11 


SEQ 0143 


B12 


os RPO7 FCTNL TEST MACRO vos ee? 1=JAN-83 11:06:45 PAGE 62-1 SEQ 0144 
TEST 15: FE CYLINDER ADDRESSING TEST 
2} 036176 000760 BR TST15 
28 036200 105037 0063) 1$: CLRE DIADPB+11 sRe Set TO TRACK 0 
54 036204 9036 7 002632 INC DTADPB+12 ;ACCESS 2ND FE CYL 
55 036210 112737 000105 0u2622 MOVB #SEEK,DTADPB*2 ;D0 AN EXPLICIT SEEK 
56 §30518 115.3: 
036216 104402 TRAP C$BSUB 
57 036220 004437 014742 JSR R4,DRVCAL START A DATA TRANSFER 
58 036224 L10103: 
b3o¢se 104403 TRAP CSESUB 
59 056226 005357 002240 DEC ITCNT DONE ITERATIONS ? 
60 Bsosee 001266 BNE TEST15 ;BR I 
61 O3e5 4 004737 020226 EXIT15: JSR PC,RPINIT INITIALIZE THE SUB-SYSTEM 
62 036240 042737 100000 002620 BIC #0MD ,DTADPB ;CLEAR THE DMD BIT IN THE DPB 
635 036246 L10100: 
036246 104401 TRAP CSETST 


xz 
“Uo 
mo 


WN “SO OONAUES WN SO ODNAUEWN HOVOONOUEWN— BGO 


- FEW pet teh Stee epee a ed ah ay tea dd ed ed ed ad ad ed 
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7 11:06:65 PAGE 63 SEQ 0145 


CTNL TEST MACRO v04 


F ° AN-83 
CYLINDER WRITE AND wR] : 


0 I+) 
E CHECK T.3 
-SBTTL TEST 16: FE CYLINDER WRITE AND WRITE CHECK TEST 


0 
T 


s_eeteeeeeeerererereererererereeraneneReeeneeeeeeeeeeenenatereneneneeeeeeeTeees 
STHIS TEST EXECUTES WRITE-DATA SEQUENTIALLY FROM TRACK FT TO TRACK LT 

[ON THE FIRST FE CYLINDER WHICH IS ACCESSIBLE IN MAINTENANCE MODE. 

[THE PARAMETERS ARE AS FOLLOWS: 


:THE FULL TRACK TRANSFER IS MADE IN 2 PASSES: 
: 1ST PASS, SECTORS: CO. THRU 24 


o ° E . . . 
P4 2ND PASS, SECTORS: 25. THRU 49. 
; STARTING TRACK s FT 
3 ENDING TRACK = LT 
; INCREMENT TRACK = jf 
: STARTING SECTOR = FS 
Pp eeeeeaeeeerereereeerertereeeteeeseneaAneeeAHeReeaeeenearenaeeaerAeeHeeeeeees 
250 T16:: 
250 004737 020226 JSR PC,RPINIT s INITIALIZE THE SUB-SYSTEM 
254 113737 002654 002620 MOVB DRVNO,DTADPB ;LOAD THE DRIVE ADDRESS 
262 013737 002344 002624 MOV TRKWC,DTADPB+4 ;WORD COUNT = HALF TRACK 
270 012737 042610 pocege MOV #DBUFF ,DTADPB+6 ;BUFFER ADDRESS 
276 113737 002212 0026 1 MOVB FT,DTADPB+11 sFIRST TRACK 
304 013737 002260 002632 MOV NC2,DTADPB+12 FIRST FE CYLINDER W/O FIX H 
312 012737 002744 002634 MOV #REG,DTADPB+14 ;SAVED RHXX/RPO7 REGISTER 
320 105037 002621 CLRB DTADPB+1 sCLEAR THE HCI 
324 052737 100000 002620 BIS #DMD ,DTADPB 3SET THE MAINTENANCE MODE FLAG 
332 004737 012262 JSR PC,STOPCK sSTOP THE CLOCK 
336 005037 002246 TEST16: CLR DOTWO sRESET 2 ITERATIONS CONTROL 
342 105037 002630 CLRB DTADPB+10 sRESTART AT SECTOR 0 
346 SETA 002224 MOV PAT,R sFILL THE DATA PATTERN 
352 013703 002626 MOV DTADPB+6,R3 sBUFFER ADDRESS 
356 013704 002624 MOV DTADPB+4,R4 sWORD COUNT 
362 010223 1$: MOV R2,(R3)+ 
364 005204 INC R4 
6368 001375 116.1 BNE 1$ sBRANCH IF PATTERN IS WRITTEN TO ALL BUFF LOC 
370 104402 TRAP C$BSUB 
372 112737 000105 002622 WRPAT: MOVB #SEEK,DTADPB+2 :DO A SEEK FIRST 
400 004437 014742 JSR R4,DRVCAL sSTART A DATA TRANSFER 
6404 110105: 
6404 104403 TRAP CSESUB 
6406 116.2: 
6406 104402 TRAP C$BSUB 
6410 112737 000161 002622 MOVB #WRIDAT ,DTADPB+2 sWRITE DATA COMMAND 
16 004437 014742 JSR R4,DRVCAL :START A DATA TRANSFER 
36422 112737 000151 002622 MOVB #WCKD,DTADPB+2 ;CHANGE TO WRITE CHECK DATA COMMAND 
6430 004437 014742 JSR R4,DRVCAL sSTART A DATA TRANSFER 
6434 L10106: 
6434 104403 TRAP CSESUB 
6436 005737 002246 TST DOTWO DONE HALF TRACK TwICE? 
36442 100406 BMI 1$ YES, EXIT 2 ITERATIONS LOOP 
6444 005337 002246 DEC pOTWO sNO, MARK 2ND ITERATION 
6450 112737 000031 002630 MOVB #25.,DTADPB+10 TFR 2ND HALF OF TRACK 
6456 000745 BR WRPAT sLOOP TO TFR 2ND HALF TRACK 
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7 FCTNL TEST MACRO V 
CYLINDER WRITE AND 


002630 
002224 
ooee 6 
002624 


o09630 


04 
WRI 


002622 


002622 
002622 


002630 


002620 


1$: 
23: 


3$: 


716.3: 


WRPATN: 
110107: 


716.4: 


110110: 


1$: 


-00 1-JAN-83 11:06:45 PAGE 63-1 
TE CHECK TEST 


1 
hs SEQ 0146 


DOTWO ;RESET PARAMETERS FOR 1ST LOOP 

Maes jth RESTART AT SE.;OR 

+ ;COMPLEMENT TRE PATTERN 

DTADPB+6,R3 ;BUFFER ADDRESS 

DT ADPB+4,R4 WORD COUNT 

Be~ thane sFILL THE BUFFER WITH COMPLEMENT DATA 
3$ BRANCH IF NOT DONE 


COMMA?'D 


C$BSUB 
@SEEK,DTADPB*2 ;SE MAS! 
R4 ,DRVCAL ST A DATA TRANSFER 


K 
RT 
CSESUB 


C$BSUB 

#WRIDAT ,DTADPB+2 
R4 ,DRVCAL ; 

#WCKD,DTADPB+2 ;CHANGE TO WRITE-CHECK 


R4 ,DRVCAL :START A DATA TRANSFER 
CSESUB sg 
boTuo ;DONE HALF TRACK TWICE? 


sYES, EXIT 2 ITERATIONS LOOP 
NO, MARK 2ND ITERATION 
3TFR 2ND HALF OF TRACK 


DOTWO 
#25. ,DTADPB+10 
WRPATN z2ND ITERATION 


DTADPB+11,R2 | ; UPDATE THE TRACK ADDRESS 
R2-DTADPB+11 

HDRD -DTADPB ;RESET THE MAINTENANCE FLAG 
CSETST 


et ad 
—ODOOOAVULWAN ($0 OONAUEWN “OVO UEWN— wo 


WANRSPOPO Non UPON 2 2 2 OO 


MUELLER LEW Ww 
NM 2OODNAUEWN—OCOONGE wr 
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= aT et teks TEST MACRO V04.00 1-JAN-83 11:06:45 PAGE 64 SEQ 0147 
-SSTTL TEST 17: WRITE TEST 
RAR HHKAAATATAEAHKAEHRAERAESARARERAHRAARARARARARARARAREATARAEEAEAERATAEeAAAeeeeee 
7 THIS TEST EXECUTES WRITE * WRITE CHECK YY ON ye TRACK OF STARTING 
SCYLINDER AND ENDING CYLINDER. AFTER EACH WRITE + WRITE CHECK OPERATION, 
iThace® ADDRESS IS UPDATE 8Y THE AMOUNT SPECIFIED IN THE ““INCREMENT 
:NOTE: CYLINDER 69. att NOT BE USED, IN ORDER TO PRESERVE THE BAD 
SECTOR FILE D 
THE FULL TRACK arg ts IS one ra 2 PASSES: 
; 1ST PASS, SECTORS: 00. 
: 2ND PASS, SECTORS: 25. fom 49. 
+ THE PARAMETERS: 
: STARTING CYLINDER 
3 ENDING CYLINDER 
, STARTING A 
; ENDING T 
é INCREMENT TRACK 
3 STARTING SECTOR 
PLeeeeeeeaeaaeeeeererererertrerteneteneeeneRehanetaeteaeKeteenenareeeeneeeseres 
036636 T17:: 
036636 JSR PC,RPINIT s INITIALIZE THE SUB-SYSTEM 
036642 TSTB WRTALL :DID OPERATOR WANT TO WRITE ON MEDIUM? 
036646 BNE :BR IF YES 
sNOTIFY OPERATOR THAT TEST WAS NOT RUN 
036650 MOV LSTEST,-(SP) 
036654 MOV #WRTENM,=(SP) 
036660 MOV #2,-(SP) 
036664 MOV SP,RO 
036666 TRAP CSPNTF 
036670 ADD #6,SP 
036674 CLR RO ;CLEAR RO FOR TRAP 
036676 TRAP CSEXIT 
036700 eWORD L10111-. 
036702 002620 1$: MOVB DRVNO,DTADPB sDRIVE ADDRESS 
036710 002624 MOV TRKWC,DTADPB*4 ;HALF TRACK 
036716 002626 MOV #DBUFF ,DTADPB+6 ;BUFFER ADDRESS 
036724 7 002630 MOVB #0, DTADPB+10 3SE DDRESS 
936732 7 002631 MOVB 4g DTADPB+11 s TRACK ADDRESS 
036740 7 002632 MOV FC; DTADPB+12 sCYLINDER ADDRESS 
036746 7 002634 MOV ait DTADPB+14 ;THE SAVED REGISTER TABLE ADDRESS 
036754 7 CLR por wo RESET 2 ITERATION TROL 
036760 ¢ MOV PATTERN IN Ré.i ILL 
036764 MOV PT LSP E+6, R3 sBUFFER ADDRESS 
036770 4 MOV Da 4 te R4 iT TAL NUMBER OF ee COUNT 
036774 3 23: MOV tale LOAD. DATA PATTERN BUFFER 
036776 04 INC ST NCREMENT WORD COUNT 
037000 75 BNE eS BRANCH IF NOT DONE 
037002 JSR PC,STOPCK sSTCP THE CLOCK 
037006 CLR R5 1ST PASS FLAG 
037010 117.1: 
037010 TRAP ($BSUB 
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002632 001165 TESTI7: - oe ef 21S oe THE LAST USER CYLINDER ? 


002632 DEC DTADPB+12 [DON'T WRITE ON LAST USER CYLINDER 
000161 002622 1$: MOVB  #WRTDAT,DTADPB+2° ;WRITE DATA COMMA 
01474¢ JSR R4,DRVCAL D0 THE WRITE COMMA 
000151 002622 MOVB #WCKD,DTADPB+2 :D0 THE WRITE CHECK COMMAND 
014742 Leeeea JSR RG, DRVCAL [D0 THE WRITE CHECK COMMAND 
TRAP  C$ESUB 
002246 TST DOTWO sDONE HALF TRACK TWICE? 
BM] 3$ iVES, att 2 ITERATIONS LOOP 
002246 DEC DOTWO K 2ND ITERATION 
000031 002630 MOVB #25.,DTADPB+10 ‘Get STARTING sre OR FOR 2ND HALF OF TRACK 
2$: BR TESTI? *LOOP TO XFER 2ND HALF OF TRACK 
002246 3$: CLR DOTWO SRESET PARAMETERS FOR 1ST LOOP 
002630 CLRB = DTADPB+10 SRESTART AT SECTOR 0 
002631 4$: MOVB = DTADPB+11,R2 {UPDATE THE TRACK ADDRESS 
002216 ADD IT,R2 ‘INCREMENT BY THE SPECIFIED AMOUNT 
002214 CMP LT-R2 SOVER THE LIMIT 
BLO Tt 3 ‘BRANCH IF SO 
002631 MOVS  R2,DTADPB+11 [UPDATE THE TRACK ADDRESS 
BR TESTI7 [LOOP BACK 
5$: TST RS 318 11 ND PASS? 
BNE EXIT17 
INC RS INO, FLAG Tow ASS 
002212 002631 MOVB = FT, DTADPB+11 SRESET THE STARTING TRA 
002206 002632 MOV LC.DTADPB+12 = UPDATE THE CYLINDER ADDRESS TO LC 
BR TESTI7 SLOOP BAC 
EXIT17: 
110111: 


a a a a LL LL LL I TT A A a A A A A I I A. 
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0371 

037160 004737 
037164 105737 
037170 001015 
037172 013746 
037176 012746 
037202 012746 
037206 010600 
037210 104417 
037212 062706 
037216 005000 
037220 104432 
037222 001600 
Os7ees 013737 
037232 113737 
037240 012737 
037246 012737 
037254 0127357 
037262 SEA 
037266 01370 

037272 013704 
037276 010423 
037300 003608 
037302 001575 
037304 005737 
037310 003055 
037312 004737 
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NDOM WRITE TEST 


ooooo-oo 
noo 
MoMofofono wh 
AANA SO 
MRrnnwl—oOW 
SOLLOOLS 


002250 
020226 


oSBTTL TEST 18: RANDOM WRITE TEST 


iis TEST EXECUTES WRITE ¢ WRITE CHECK DATA RANDOMLY; 
THIS TEST EXECUTES WRITE * WRITE CHECK DATA RANDOM 

:IN THE PACK AREA BONDED BY THE (START Ing CYLINDER. E SENDING CYLINDER) 
; (STARTING SECTOR, ENDING. SECTOR 

3 THE TRANSFER SIZE IS ALWAYS EQUAL TO ONE SECTO 


iF THERE IS A P=CLOCK, THE recat PERFORMS AN ADDRESS MARK eeeetie 


TEST 
+H Hed 4335 THAT DATA CAN BE WRITTEN CORRECTLY WITHIN THE SAME D 


ION 
sc REVOLUTION 


ECTOR DETECTION. SEARCH FOR THE SECOND Logica SECTOR paeceD DING T 
3 SELECTED SECTOR TO WRITE, THEN WRITE THE SELECTED SECTOR. TIME THE SEARCH 
sDONE“WRITE DONE TO BE wW ci twin A DISC REVOLUTION. FLAG LOS? REVOLUTIONS. 
sNOTE: CYLINDER oF. afi NOT BE USED, IN ORDER TO PRESERVE THE BAD 
$ SECTOR FILE 
;PARAMETERS: 
3 STARTING CYLINDER 
3 ENDING CYLINDER 
: STARTING TRACK 
3 ENDING TRACK 
g STARTING SECTOR 
3 END Ins SECTOR 
SUARRARARA AAA A AAA R AA Ke eee eee AeA AAA RAHA HEHE RT eHeeKeneeeAereeAe TAREE eeTeTES 
118: 
JSR PC,RPINIT s INITIALIZE THE SUB-SYSTEM 
TSTB WRTALL :DID OPERATOR WANT TO WRITE ON MEDIUM? 
BNE 1$ BR IF YES 
sNOTIFY OPERATOR THAT TEST WAS NOT RUN 
MOV LSTEST,-(SP) 
MOV #WRTENM,-(SP) 
MOV #2,-(SP) 
MOV ,RO 
TRAP CSPNTF 
ADD = 
CLR ;CLEAR RO FOR TRAP 
TRAP CSEXIT 
eWORD 110113-. 
1$: MOV XTIMES, ITCNT 3SET ETERATION COUNT 
MOVB SET UP THE PAPAMETERS 


DRVNO,DTADPB :YES, PROCEED: 
a : WORD — SET TO ONE SECTOR 
MOV #DBUFF ,DTADPB+6 


SBUFFER ADDRESS 
MOV #REG, DTADPB+14 ; THE ERVED ORARK/RPO? REGISTER TABLE 


MOV DTADPB+ “WORD COUNT 
MOV DTADPB+6.R3 ;BUFFER ADDRESS 
MOV PAT,R4 *PATT RN 
2$: MOV R4,(R3)¢ SFILL THE BUFFER WITH DEFAULT PATTERN 
INC R2 ‘INCREMENT THE WORD COUN 
BNE 2s *LOCP IF NOT DONE 
TST CLKSTA P=CLK PRESENT? 
BGT TSTIBA *YES, EXEC RAND WRT TST + AD MRK DET TST 
JSR PC .RPINIT S INITIALIZE THE SUBSYSTEM 


SEQ 0149 
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SSFan os 
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FORO SFOSWANMO Tw 
oooo— oo—C00°0oO 

ee ee) + 
~N 
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So 
a 
w 
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012262 TEST18: JSR PC, STOPCK 
017544 1$: JSR R4,RANADR 
002631 000037 cMPe DTADPB+11,#31. 
002632 001165 CMP DIADPB+12,#629. 
002234 2$ TSTB RANPAT 
BEQ 5$ 
002624 MOV DTADPB+4,R 
b026¢6 MOV DTADPB+6.R 
01161 3$: JSR JRAN 
011672 4$: MOV $RP1,(R3)+ 
000001 ADD #1,Rd 
BM] 4$ 
5$: 
718.1 
TRAP C$BSUB 
000161 002622 MOVB  #WRTDAT,DTADPB+2 
014742 JSR 4,DRVCA 
000151 002622 MOVB 
014742 JSR R4,DRVC 
L10114: 
TRAP CSESUB 
002240 DEC ITCNT 
BNE TEST18 
EXIT18: 
TRAP CSEXIT 
.WORD L10713-. 
015476 TST184: JSR R4,SRCHOO 
BR 1$ 
040774 JMP x1T18 
015626 1$: JSR PC, STRTMR 
000101 152430 BIC #101 ,aPKCs 
000300 MOV #PR1I06,-(SP) 
040574 MOV #T1B0FL,-(SP) 
012126 MOV PKV,=(SP 
000003 MOV 3,-(SP) 
TRAP C$SVEC 
000010 ADD #10,SP 
000000 MOV #PRI00,-(SP) 
015624 MOV #DORTI,=-(SP) 
002644 MOV RPVEC,=(SP) 
000003 MOV #3,-(SP) 
TRAP CSSVEC 
000010 ADD #10,SP 
CLR RS 
002234 1S118B: TSTB RANPAT 
BEQ 2$ 
002624 MOV DTADPB+4,R2 
002626 MOV DTADPB+6,R3 
011610 JSR PC, RAND 
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STOP THE CLOCK 

GENERATE THE RANDOM STARTING ADDRESS 
sMAKE SURE YOU DON'T WRITE IN THE BAD SEC 
31S THIS THE LAST TRACK ? 


: F NO 

iis tals THE LAST USER CYLINDER ? 
sSELECT RANDOM PATTERN ? 

sBRANCH IF NOT 

sWORD COUNT 2°S COMPLEMENT 

sBUFFER ADDRESS 

sGERERATE NEW RANDOM NUMBER 

itt THE BUFFER WITH RANDOM PATTERN 


c SH ? 
;LOOP BACK , IF NOT DONE 


FILE 


:D0 A WRITE DATA 


R4,DRVCAL 
9 Patel D0 A WRITE CHECK DATA 


;DONE ITERATIONS ? 
;BR IF NO 


3MASS BUS INIT & RECAL 

3NO RECAL ERROR, CONTINUE 

sEXIT ON RECAL ERROR 

INIT THE TIMERS 

STOP THE P-CLOCK 

SETUP VECTOR IN CASE OF CLOCK OVERFLOW 


SETUP RHXX/RPO7 VECTOR 


SET COUNT-UP FLAG FOR COUNT SUBR 
>SELECT RANDOM PATTERN ? 

;BRANCH IF NOT 

WORD COUNT 2°S COMPLEMFNT 


BUFFER ADDRESS 
;GERERATE NEW RANDOM NUMBER 


SEQ 0150 
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i: RANDOM WRITE TEST 
%6 oer eee O37 3 011672 1$: MOV $RP1_(R3)¢ sFoLt THE BUFFER WITH RANDOM PATTERN 
97 037974 057768 000001 ADD #1,R2 ‘FINISH 
oS 037600 titted BM] 1$ sLOOP Back » IF NOT DONE 
100 : REDUCE THE TARGET SECTOR BY 2, TO COMPUTE THE VALUE OF THE 2ND LOGICAL 
102 s ; 
103 037602 004437 017544 23: JSR RG4,RANADR ;GEN A RAND ADR: CYL, TRK, SEC 
104 iMAKE SURE YOU DON'T WRITE IN THE BAD SEC FILE 
105 037606 123727 002631 000037 CMPB DIADPB+11 #31. t1S THIS THE LAST TRACK 
106 037614 001004 BNE :BR IF NO 
107 937616 023727 002632 001165 CMP DTADPB+12, #629. iI THIS THE LAST USER CYLINDER ? 
198 037624 001766 BEQ F YES 
109 037626 113701 002630 3$: MOVB DTADPB+10,R1 ert TARGET SECTOR ADDRESS TO is is 
110 037632 032777 000004 143032 BIT #ILV,aRPDS [1S INTERLEAVED SECTOR ENABLED ? 
111 037640 001006 BNE i [BR IF YES 
112 037642 162701 000002 SUB #2,R1 ‘BACKUP THE SECTOR ADDRESS FOR THE SEARCH 
113 037646 002002 BGE 4$ [BR IF < SECTO 
114 037650 062701 009062 ADD #50.,R1 sADJUST FOR THE ADDRESS BEFORE SECTOR 0 
115 037654 000411 4$: BR 7$ TEXIT 
117 037656 005701 5$: TST R1 31S IT SECTOR ADDR O ? 
118 037660 001405 BE? 6$ ‘BR IF YES 
119 037662 162701 000031 SUB #25.,R1 ‘1S IT SECTOR ADDR 25 ? 
120 037666 001002 BNE ‘BR IF NO 
121 037670 062701 000031 ADD #25.,R1 sADJUST FOR THE ADDRESS BEFORE SECTOR 0 
158 037674 062701 000030 6$: ADD #24.,R1 sREDUCE THE TARGET SECTOR BY 2 
124 sPREPARE TO SEARCH 
125 037700 7$: 
037700 . 118.2: 
037700 1.4492 TRAP C$BSUB 
126 037702 013777 002632 143004 MOV DIADPB*12, @RPDC ;CYL 
127 037710 110146 MOVB = R11, = ( 5P) i MERGE SECTOR 
128 037712 113766 00263: 000001 MOVB DTADPB +11, 1(SP) AND TRK 
129 037720 012677 142742 MOV (SP) +, @RPDA [LOAD TRK/SEC 
130 037724 013777 002624 142730 MOV DTADPB+4, QRPWC ;WRITE 1 SECTOR 
131 037732 013777 002626 142724 MOV DTADPB+6,aRPBA ;SET DATA BUFFER ADR 
132 037740 012703 002472 MOV #11420,R3 sTIMING LIMITS FOR COUNT SUBR 
133 037744 012777 000006 152150 MOV #6, aPKB TALLOW > 6 REVOLUTIONS PER SEARCH: 
135 :3 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS) 
13% 33 FOR WORST CASE SEARCH(SECT CMP ERR OR HDR CRC ERR) 
138 037752 012777 000105 152146 MOV #105, aPKCS s START PeCLOck 1E=1, COUNT DOWN,LINE FREQ 
139 037760 012777 000131 142672 MOV #SEARCH,@RPCS1 START A SEARCH 
140 037766 000001 WAIT [WAIT ON INTERRUPT 
141 037770 017746 152130 MOV aPKC ,-(SP) 3s SAVE Hb stare 
142 037774 042777 000101 152116 BIC #101 aPKCS [STOP THE C 
143 040002 012677 152114 MOV (SP)+,aPKB > AND RESTORE ote COUNTED VALUE 
144 040006 032777 040000 142456 BIT meitid, aRPDS ‘ERROR? 
145 040014 001534 BEQ 11811 :NO-“BRANCH 
146 040016 004737 010646 JSR PC, SAVREG E RO-RS 
040022 012702 002620 MOV #OTADPS, R2 ‘bee NIER 
040026 00473 024472 JSR PC, SVRHX SAVE — THE unsere REGISTERS 
040032 012777 000040 142630 MOV ace, SRPCS2 ‘MASSBU S CLEAR 
040040 013777 002620 142622 MOV DTADPB, @RPCS2 SELECT DRIVE 
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CZRJLAO RPO? FCTNL Test WACRO v0G.95 1-JAN=83 11:06:45 PAGE 65-3 SEQ 0152 
TEST 18: RANDOM WRITE TEST 
040046 004737 01070 JSR PC,RESREG s RESTORE RO-RS 
1467 040052 004537 01266 JSR RS -ERRANY 
148 040056 002620 DTADPB sFIND OUT WHAT ERROR 
149 940060 110115: 
040060 104403 TRAP CSESUB 
150 040062 032737 000210 002254 BIT #BIT BIT7,SVSTAT -RETRY ALLOWED ? 
151 040070 001022 BNE 8$ ;BRANCH IS SO 
152 040072 atthe 004422 MGV #SEAERR,<(SP) 
040076 012746 000001 MOV #1,-(SP5 
040102 010600 MOV SP-R 
0401046 104417 TRAP  CSPNTF 
040106 962706 000004 ADD #4,SP 
153 040112 012746 004525 MOV #ABOTST,<(SP) 
040116 012746 000001 MOV #1,- (SP) 
040122 010600 MOV Pp: 
040124 104417 TRAP CSPNTF 
040125 062706 000004 AD SP 
154 040132 000137 040700 JMP TIBEND 
156 040136 912737 000020 002340 8s: MOV #16. ,WCEFLG sRETRY 16 TIMES 
157 040144 012777 000006 151750 9$: MOV #6, aPKB TALLOW > 6 REVOLUTIONS PER SEARCH: 
159 33 FOR IMPLIED MAX SEEK (46 MSEC 7% ABOUT 3 REVOLUTIONS) 
+ 33 FOR WORST CASE SEARCH (SECT CMP .7R OR HDR CRC ERR) 
162 040152 012777 000105 151740 MOV #105,a START PoCLOCK: IE.COUNT DOWN,LINE FREQ 
163 040160 012777 000131 142472 MOV oseahen. me OSI ;START A SEARCH 
164 040166 000001 WAIT “WAIT ON INTERRUPT 
165 040170 017746 151730 MOV aPKC ,-(SP) + SAVE be CLOCK 
165 040174 042777 000101 151716 BIC #101. aPKCS :STOP THE CLOCK 
167 040202 012677 151714 MOV (SP)+,aPKB ‘AND RESTORE THE COUNTED VALUE 
168 040206 032777 040000 142456 BIT #81114, aRPDS TER ROR? 
169 040214 001434 BEQ 718118 SEXIT if NONE 
170 040216 012777 000040 142444 MOV #CLR,aRPCS2 ?MASSBUS CLEAR 
171 060224 013777 002620 142436 MOV DTADPB, aRPCS2 ;DRIVE ADDRESS 
172 040232 005337 002340 DEC WCEFLG OVER RETRY LIMIT ? 
173 040236 001342 BNE 9% ‘BRANCH IF NOT 
174 040240 012746 004461 MOY #SEABAD,-(SP) 
040244 012746 000001 MOV #1, -(SP5 
040250 010600 MOV °R 
040252 104417 TRAP CSPNTF 
040254 062706 000004 ADD #4,SP 
175 040260 012746 004525 MOV #ABOTST,-(SP) 
040°64 012746 000001 MOV #1,-(SP) 
040270 010600 MOV SP.R 
040272 104417 TRAP CSPNTF 
040274 642706 000004 ADD #4,SP 
176 040300 000137 040700 JMP TIBEND SOTHERWISE EXIT 
177 040304 118.3: 
040304 104402 TRAP  C$BSUB 
178 040306 013777 002639 142352 11811$: MOV DTADPB+10,aRPDA ;SET TRK/SECT TO WRITE 
179 040314 005077 151602 CLR arxB CLEAR Polk BUFFER COUNT 
180 040320 012777 000161 142332 MOV oe Oat. gpnecs' ‘START A WRIT 
181 040326 012777 000121 151564 MOV #121,a START THE sh Oee ifs 1,UP,SINGLE,10US 
1B2 040334 000001 WAIT [WAIT ON INTERR 
183 040336 017746 151562 MOV aPKC ,-(SP) sSAVE THE ag 
184 040342 042777 000101 151550 BIC #101,aPKCS sSTOP THE CLOCK 
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1 18: RANDOM WRITE TEST 
185 040350 012677 151546 MOV (SP)+,aPKB 5 AND RESTORE THE COUNTED VALUE 
186 O10384 O39) 040000 142310 BIT weit it, aRPDS ZERR 
187 040362 001437 BEO 12$ Lo -BRANCH 
188 040364 004737 010646 JSR PC, SAVREG SAVE RO=R5 
040370 012702 902620 MOV #OTADPB,R2 [DPB POINTER 
040374 004737 024472 JSR PC SVR ux [SAVE ALL THE gRHAX/RPO7 REGISTERS 
040400 O1e777 000040 142262 MOV PCS2 ;MASSBUS CLEAR 
40606 013777 002620 142254 MOV DTADeS onees2 iSELECT DAVE 
4041 904737 010700 JSR PC,RESREG ;7RESTORE RO-RS 
189 040420 004537 012664 R R5ERRANY ‘FIND OUT WHAT ERROR 
190 040424 002620 DTADPB 
191 040426 L10116: 
040426 104403 TRAP = CSESUB 
192 040430 032737 000040 002254 RIT #BITS,SVSTAT :POSITION ERROR? 
193 040436 001411 BEQ 11812$ =NO, CONTINUE 
194 040440 012746 004544 MOV #POSERR,=(SP) 
040444 012746 000001 MOV #1,-(SP) 
040450 010600 MOV SP,RO 
040452 1046417 TRAP CSPNTF 
040454 062706 000004 ADD #4 
195 040460 000507 BR TIBEND 
197 040462 004737 016076 11812$: JSR PC, COUNT sCOUNT TIME SEARCH DONE ~WRITE DONE 
198 SSETUP RHXX/RPO7 VECTO 
199 040466 013746 002646 MOV RPVEC+2,-<(SP) 
040472 012746 022674 MOV #ISRV,<(SP) 
040476 013746 002644 MOV RPVEC,-(SP) 
040502 012746 000003 MOV #3,-(SP) 
040506 104437 TRAP = C$SVEC 
040510 062706 000010 ADD #10,SP 
200 040514 112737 000351 002622 MOVB #WCKD,DTADPB+2 ;DO A WRITE CHECK DATA CMD 
201 040522 104404 TRAP — C$BSEG 
202 040524 004437 014742 JSR R4, DRVCAL :D0 RECALIBRATE 
203 040530 100008: 
040530 104405 TRAP _— CSESEG 
204 040532 023737 002316 002244 CMP TIM.UP+14,XTIMES :REPEATED 1024 TIMES? 
205 040540 002057 BGE TIBEND :YES, CONCLUDE TEST 
206 :SETUP RHXX/RPO7 VECTOR 
207 040542 013746 002646 MOV RPVEC+2,-(SP) 
040546 012746 015624 MOV #DORTI,-(SP) 
040552 013746 002644 MOV RPVEC,-(SP 
040556 012746 000003 MOV #3,-(SP) 
040562 104437 TRAP —- C$SVEC 
940564 062706 060010 ADD #10 
208 040570 000137 03/546 JMP TST{8B s CONT INUE 
210 040574 004737 012324 TIBOFL: JSR PC, FORSEC SRESET TIMER TO & SEC, CHANGD CLK SERVICE AD 
211 sDROP THE PRIORITY 
212 040600 012700 000000 MOV #PRIO0, RO 
40604 1064441 TRAP CSSPRI 
213 040606 004737 010646 JSR PC, SAVREG ::SAVE RO-RS 
040612 012702 002620 MOV #OTADPB,R2 ‘DPB POINTER 
040616 004737 024472 JSR PC, SVRHXX SSAVE ALL THE gRHXX/RPO7 REGISTERS 
040622 012777 000040 142040 MOV #CLR,aRPCS2 [MASSBUS CLEAR 
040630 013777 002620 142032 MOV DTADPB ,aRPCS2 ESELECT RIV t 
040636 016102 000014 MOV 14(R1).R2 ADDRESS OF SAVED REGISTER TABLE 
040642 016237 000036 002266 MOV 36(R2).CYL.RD :GET CURRENT CYLINDER 


SEQ 0153 
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1 18: RANDOM WRITE TEST 
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040650 
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004437 


104401 


002310 


016370 
016240 
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TIBEND: 


TSTI8C: 


23: 


3$: 
X11T18: 


L10113: 
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mr 


R4,TYPTIM 
R4,SPTYP 


rts ged re 


CSETST 


P) 


SETUP RHXX/RPO7 VECTOR 


crs TO 


RENT SECTOR 
oem TRACK 


RO-R5 


HE MASSBUS 
| DRIVE 


ZE THE CLOCK 
RCH“WRITE TIMED > 1 REVOLUTION? 


p 
— LOST REV? 


AG SOFT ERROR 


3GO TYPE THE TIMES 
;POINTER 


SEQ 0154 
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TEST 18: RANDOM WRITE TEST 
1 
3 


"i 


Saadeh atatatad adadadad adad 
oooo ocooo oo 
GENOA LVS Noe GS 


ooooo 


2 RRRRR KRRKR RRR KK 


1 
17 
00 


7 
1 
1 
0 
000 
2 
1 
0 
0 


~~ we 
MmNMrMON 
MmNMWO 


N 12 
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8: RANDOM WRITE TEST 


- TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 


MACROS 
WITH THE OPERATOR. 


; "THE ye ne CODING SECTION year eatns 

3 nachos “eo USED BY THE SUPERVISOR TO BUILD P-TABLES 

: ROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT Ant 
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 

; ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICA IONS 


«WORD L10117=*LSHARD/2 


LSHARD:: 
sPRINT *RPCS1 ADRS?° 
«WORD TSCODE 
«WORD MESG1 
~ WORD TSLOLIM 
-WORD TSHILIM 
sPRINT ‘VECTOR ADRS?° 
»WORD TSCODE 
-WORD MESG2 
» WORD TSLOLIM 
» WORD TSHILIM 
sPRINT "BR LEVEL?° 
~ WORD TSCODE 
eWORD MESG3 
» WORD 340 
~WORD TSLOLIM 
» WORD TSHILIM 
sPRINT "DRIVE #?° 
~ WORD TSCODE 
» WORD MESG4 
.- #ORD 7 
~WORD TSLOLIM 
» WORD TSHILIM 
EVEN 
110117: 
MESG1: .ASCIZ /RPCS1 ADRS/ 
MESG2: .ASCIZ /VECTOR ADRS/ 
MESG$: .ASCIZ /BR LEVEL/ 
MESG4: .ASCIZ /DRIVE #/ 
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PARAMETER CODING MACRO V04.00 1-JAN-83 11:06:45 PAGE 68 SEQ 0157 
SOFTWARE PARAMETER CODING SECTION 
: -SBTTL SOFTWARE PARAMETER CODING SECTION 
Fee 
4 : THE a Nes "ar tees CODING SECTION CONTAINS MACROS 
5 $ ret RE USED BY SUPERVISOR TO BUILD P-TABLES. TH 
6 3; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT we 
7 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 
8 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH Yo MaiT CATIONS 
4 : WITH THE OPERATOR. 
11 : 
12 041142 000116 «WORD L10120-LS$SOFT/2 
041144 LSSOFT:: 
13 PRINT "CHANGE DRIVE PARAMETERS?° 
14 061144 015130 » WORD TSCODE 
041146 041400 «WORD PARMSG 
041150 000001 WORD 1 
15 3GO TO 1$ IF NO 
16 041152 056044 «WORD TSCODE 
17 PRINT “STARTING CYL?° 
18 041154 000052 «WORD TSCODE 
041156 041430 «WORD FCMSG 
041160 001777 ~ WORD 1777 
041162 000000 WORD TSLOLIM 
041164 001164 -WORD TSHILIM 
19 PRINT “ENDING CYL?" 
20 041166 001052 -WORD TSCODE 
041170 041446 -WORD LCMSG 
041172 001777 »WORD 1777 
041174 000001 » WORD TSLOLIM 
041176 001165 -WORD TSHILIM 
21 sPRINT ‘INCREMENT CYL?° 
22 041200 002052 «WORD TSCODE 
041202 041464 -WORD ICMSG 
041204 001777 » WORD 1777 
041206 000001 -WORD TS$LOLIM 
041210 001164 «WORD TSHILIM 
:PRINT "STARTING TRK?° 
24 041212 003052 «WORD TS$CODE 
041214 041502 -WORD FITMSG 
041216 000037 WOR 37 
be1392 000086 “WORD TSHAKIM 
WORD 
PRINT “ENDING TRK?* 
2€ 041224 004052 -WORD TSCODE 
041226 041520 ~WORD TMSG 
041230 0037 eWORD 37 
821334 go00s7 ‘WORD TSAILIM 
27 PRINT “INCREMENT TRK?° 
28 041236 005052 -WORD TSCODE 
041240 1536 WORD TMSG 
041242 000037 ~WORD 7 
041244 000001 » WORD TELOLIM 
041246 000036 -WORD TS$HiLim 


29 PRINT “STARTING SEC?" 
30 041250 006052 -WORD TSCODE 


ov 
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ae 
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PARAMETER CODING MACRO V04.00 
SOFTWARE PARAMETER CODING SECT 


041554 
000077 
000000 
000060 


041578 


007044 


014120 
041675 
000400 


1 
I 


~JAN-83 11:06:45 


ON 


1$: 


2$: 


PAGE 68-1 

- WORD ESMSG 
-WORD 7 

«WORD TSLOLIM 
WORD TSHILIM 
«WORD TSCODE 
- WORD Lares 
«WORD 

«WORD TSLOLIM 
«WORD TSHILIM 
«WORD TSCODE 
-WORD PATMSG 
WORD 177777 
-WORD TSLOLIM 
-WORD TSHILIM 
-WORD TSCODE 
-WOR WRITMG 
- WORD 0 
-WORD TSCODE 
-WORD TSCODE 
«WORD WRSAFM 
-WORD 400 
-WORD TSCODE 
-WORD RPATMG 
-WORD 1 

-WORD TSCODE 
-WORD RDHDMG 
-WORD 1 

-WORD TSCODE 
-WORD TIMMSG 
WORD 400 
-WORD TSCODE 
-WORD STOMSG 
- WOR 400 
-WORD TSCODE 
-WORD STLTIM 
-WORD 1 

-WORD TSCCDE 
-WORD STALMG 
-WORD 400 
-WORD ITS$CODE 
-WORD TSCODE 
-WORD STALRM 


;PRINT 


sPRINT 


sPRINT 


SEQ 0158 


"ENDING sec? 


"DATA PATTERN?* 


"DO YOU WANT TO WRITE DATA ANYWHERE ON MEDIA? 


3:60 TO 2$ IF NO 


sPRINT 


"3 CUSTOMER DATA WILL BE OVERWRITTEN ; 


+ CONTINUE?" 


3PRINT 


;PRINT 


sPRINT 


:PRINT 


;PRINT 


sPRINT 


:G0 10 


_ DATA PATTERNS FOR RANDOM WRITE - 
‘PERFORM READ HEADER & DATA DURING SEEKS?" 
"TYPE TIME REPORTS?° 

‘INHIBIT SOFTWARE TIMEOUTS?° 

"TIMING TESTS, STALL BETWEEN SEEKS: RANDOM IN 
"STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMI 


3$ IF NO 


on 


= 9 ee ee mA oH 
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SOFTWARE PARAMETER CODING SECTION 


041376 000001 «WORD 1 
61 041400 3$: 
: 
2 041400 L10120: 
76 041400 103 110 107 PARMSG: /CHANGE DRIVE PARAMETERS/ 
77 061430 12 124 101 FCMSG: /STARTI CYL/ 
78 041446 105 116 104 LCMSG: /ENDIN CYL/ 
79 041464 111 116 103 ICMSG: /INCREMENT CYL/ 
80 041502 123 124 101 FIMSG: /STARTING TRK/ 
041520 105 116 104 LIMSG: /ENDIN TRK/ 
82 0415356 111 116 103 ITMSG: /INCREMENT TRK/ 
83 041554 123 124 101 FSMSG: /STARTING SEC/ 
84 041572 105 116 104 LSMSG: /ENDING SEC/ 
85 041610 104 101 124 PATMSG /DATA_ PATTERN/ 
87 041626 104 117 040 WRITMG: /D0 YOU WANT TO WRITE ANYWHERE ON MEDIA/ 
88 041675 007 011 041 WRSAFM: <BELL>/ ! CUSTOMER DATA WILL BE OVERWRITTEN !/<CR><LF> 
89 041746 007 011 055 <BELL>/ eer ee nn enoree same ane woos oe ean er oe ae @</<CR><LF> 
90 042017 103 117 116 / CONTINUE / 
92 042030 125 123 105 RPATMG: /USE RANDOM DATA PATTERNS FOR RANDOM WRITE TEST/ 
93 042107 120 105 122 RDHDMG: tee te we sy & DATA DURING SEEKS/ 
94 042157 124 131 120 TIMMSG /TYPE TIME REPORTS/ 
95 042201 111 116 110 STOMSG /INHIBIT SOFTWARE TIMEOU 
96 042233 124 111 115 STLTIM /TIMING TESTS, STALL BP YWEEN SEEKS: RANDOM INSTEAD OF 2 MSEC/ 
97 042327 123 124 101 STALMG: /STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMING TESTS/ 
bs 042414 125 123 105 STALRM: /USE RANDOM STALL TIMES/ 
140 
HH 042444 SPATCH:: 50. ;PROGRAM PATCH AREA (50. WORDS) 
113 042610 DBUFF :: 256.*25. sDATA BUFFER FOR HALF A TRACK 
We 073610 56. ZONE SECTOR EXTRA FOR MID-TRANSFER SEEK TEST 
122 
074610 SFREE 
074612 $SIZE 
074614 LSLAST:: 


ce A LO se, sn, se, _~ LALALA LALA LAL _m 
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14 

16 074614 000000 WORD 0 
074616 000004 “WORD L10123-./2=1 
074620 L10121: 

17 074620 176700 WORD 176700 

18 074622 000254 "WORD 254 

19 074624 000240 ‘WORD 240 

20 074626 000000 “WORD 0 

21 074630 110123: 

23 000001 SEND 
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